Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
        MyBase.OnLoad(e)
        PictureBox1.Image = New Bitmap(PictureBox1.Height, PictureBox1.Width)
    End Sub
 
    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        CType(PictureBox1.Image, Bitmap).SetPixel(e.X, e.Y, Color.Black)
        PictureBox1.Refresh()
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist