Public Class fmMain
    Dim Stift As New Pen(Color.Black, 5)
 
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        Dim Leinwand As Graphics = Me.CreateGraphics
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Leinwand.DrawLine(Stift, e.X, e.Y, e.X + 2, e.Y + 2)
        End If
    End Sub
End Class