Private Sub Command1_Click()
    Dim a As Single
    Dim b As Single
    Dim x As Single
    Dim y As Single
    Dim realX As Single
    Dim realY As Single
 
    x = 1200
    y = 300 
 
    a = ellipse.Width / 2
    b = ellipse.Height / 2
 
    realX = x - a
    realY = y - b
 
    If realX * realX / a / a + realY * realY / b / b <= 1 Then
        MsgBox "Punkt liegt innerhalb oder auf"
    Else
        MsgBox "Punkt liegt außerhalb"
    End If
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1