Public Class Form1
 
    Dim down As Boolean = False
    Dim lastpoint As Point
    Dim uselastpoint As Boolean = False
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        PictureBox1.Image = New Bitmap(PictureBox1.Width, PictureBox1.Height, _
        Imaging.PixelFormat.Format24bppRgb)
        Dim grfx As Graphics = Graphics.FromImage(PictureBox1.Image)
        grfx.Clear(Color.White)
    End Sub
 
    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            PictureBox1.Cursor = Cursors.Cross
            down = True
            PictureBox1_MouseMove(sender, e)
        End If
    End Sub
 
    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        If down = True Then
            Dim img As Bitmap = PictureBox1.Image
            Dim grfx As Graphics = Graphics.FromImage(img)
 
            If uselastpoint = False Then
                uselastpoint = True
                img.SetPixel(e.Location.X, e.Location.Y, Color.Black)
            Else
                grfx.DrawLine(Pens.Black, e.Location, lastpoint)
            End If
            lastpoint = e.Location
            PictureBox1.Image = img
        End If
    End Sub
 
    Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
        If e.Button = Windows.Forms.MouseButtons.Left Then
            down = False
            uselastpoint = False
            PictureBox1.Cursor = Cursors.Default
        End If
    End Sub
End Class

_______________
Meine HP: http://www.tenschman.de/