Private Sub Form1_MouseMove(...) Handles Me.MouseMove
 
    ' Punkte und Entfernung berechnen
    Dim middle As New Point(Me.ClientSize.Width \ 2, _
                            Me.ClientSize.Height \ 2)
 
    Dim mouse As New Point(e.X - middle.X, _
                           e.Y - middle.Y)
 
    Dim dis As Double =  _
        Math.Sqrt(mouse.X * mouse.X + mouse.Y * mouse.Y)
 
    ' Winkel berechnen
    Dim angle As Double = 0
 
    If dis <> 0 Then
        angle = Math.Acos(mouse.X / dis)
    End If
 
    If mouse.Y < 0 Then
        angle = -angle + 2 * Math.PI
    End If
 
    ' Text zeichnen
    Dim G As Graphics = Me.CreateGraphics
 
    G.TranslateTransform(middle.X, middle.Y)
    G.RotateTransform(angle * 180 / Math.PI)
 
    G.Clear(Me.BackColor)
    G.DrawString(Me.Text, Me.Font, New SolidBrush(Me.ForeColor), 0, 0)
 
End Sub