Visual Basic

Imports System.Drawing

    Dim startX As Int16
    Dim endX As Int16
    Dim startY As Int16
    Dim endY As Int16
    Dim m_Drawing As Boolean
    Dim EraserOn As Boolean
    Dim MyPen As New Pen(Color.Black)
    Dim m_Drawn As Bitmap

    Dim pic1 As Bitmap
    Dim m_Graphics As Graphics
    Dim m_Graphics2 As Graphics

    Private Sub lblPaint_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles lblPaint.Paint
        RenderIt()
    End Sub

    Private Sub lblPaint_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lblPaint.MouseDown
        m_Drawing = True
        startX = e.X
        startY = e.Y
    End Sub

    Private Sub lblPaint_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lblPaint.MouseUp
        endX = e.X
        endY = e.Y
        If m_Drawing = False Then
            lblPaint.Refresh()
        End If
        m_Drawing = False
    End Sub

    Private Sub lblPaint_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lblPaint.MouseMove
        If m_Drawing Then
            m_Graphics.DrawLine(MyPen, startX, startY, e.X, e.Y)
            startX = e.X
            startY = e.Y
            m_Graphics2.DrawImage(m_Drawn, 0, 0)
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        pic1 = Win32Util.Win32Window.DesktopAsBitmap
        lblPaint.Image = pic1

        m_Drawn = New Bitmap(pic1.Width, pic1.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
        m_Graphics = Graphics.FromImage(m_Drawn)

        m_Graphics2 = lblPaint.CreateGraphics()

        EraserOn = False
        MyPen.Width = 4
    End Sub

    Private Sub RenderIt()
        'Render Image then place Drawing on top
        m_Graphics2.DrawImage(pic1, 0, 0)
        m_Graphics2.DrawImage(m_Drawn, 0, 0)

    End Sub

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        pic1 = Win32Util.Win32Window.DesktopAsBitmap
        RenderIt()
    End Sub