Public Class Form1
    Dim py As Int32
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.BackColor = Color.Black
        Me.Size = New Size(300, 240)
    End Sub
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If e.Y <= 200 Then
            py = 200 - e.Y
            Me.Refresh()
        End If
    End Sub
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim x, y, w As Int32
        w = py \ 2     ' Der Winkel
        e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
        x = 50 + Math.Cos(w * Math.PI / 180) * 200
        y = 200 - Math.Sin(w * Math.PI / 180) * 200
        e.Graphics.DrawLine(New Pen(Color.Yellow, 3), 50, 200, 250, 200)
        e.Graphics.DrawLine(New Pen(Color.Yellow, 3), 50, 200, x, y)
        e.Graphics.DrawString(w.ToString & " Grad", Me.Font, Brushes.White, _
          240, 10)
    End Sub
End Class