Dim mid As New Point(Me.ClientRectangle.Width / 2, _
          Me.ClientRectangle.Height / 2)
        Dim vo As Integer = e.Y - mid.Y
        Dim ho As Double = e.X - mid.X
        Dim theta As Double = Math.Atan(Math.Abs(vo) / Math.Abs(ho))
        If ho < 0 AndAlso vo < 0 Then theta = Math.PI - theta

________
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