Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
  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
      End If
    End If
  Next C
End Sub

Gruss,

Zardoz