Private Sub Frame1_MouseDown(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
  On Error Resume Next
  Dim C As Control, Rad!, DX!, DY!
 
  For Each C In Me.Controls
    If TypeOf C Is Shape Then
      Rad = IIf(C.Height < C.Width, C.Height, C.Width) / 2
      DX = C.Left + C.Width / 2 - X
      DY = C.Top + C.Height / 2 - Y
      If DX * DX + DY * DY < Rad * Rad Then
        MsgBox "Mausklick auf " & C.Name & ":" & C.Index & ":"
        'MsgBox "Mausklick auf " & C.Name
      End If
    End If
  Next C
 
End Sub