Dim b As Bitmap
 
    Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
        MyBase.OnLoad(e)
        b = New Bitmap(Me.Height, Me.Width)
    End Sub
 
    Protected Overrides Sub OnPaint(ByVal e As _
      System.Windows.Forms.PaintEventArgs)
        MyBase.OnPaint(e)
        e.Graphics.DrawImage(b, New Point(0, 0))
    End Sub
 
    Protected Overrides Sub OnMouseMove(ByVal e As _
      System.Windows.Forms.MouseEventArgs)
        MyBase.OnMouseMove(e)
        b.SetPixel(e.X, e.Y, Color.Black)
        Me.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