Private Sub Command1_Click()
    Dim a, b, punkt_x, punkt_y, ergebnis
 
    punkt_x = 1200
    punkt_y = 1500
 
    PSet (punkt_x, punkt_y), QBColor(0)
 
    b = Shape1.Width / 2
    a = Shape1.Height / 2
 
 
    ' jetzt die 'böse' Formel  :-)
    ergebnis = (((punkt_x - Shape1.Left) ^ 2) / (a ^ 2)) + (((punkt_y - _
      Shape1.Top)) ^ 2 / (b ^ 2))
 
    ' wo liegt der Punkt?
    Select Case ergebnis
        Case Is < 1
            s = "innerhalb der Ellipse"
        Case Is = 1
            s = "genau auf dem Rand der Ellipse"
        Case Is > 1
            s = "ausserhalb der Ellipse"
    End Select
 
    MsgBox s
 
End Sub