[a6000000]

Sub ImageButton1_Click
'// danke , so hab ich noch ein ImageButton1 eingefuegt:
'// so I added a ImageButton:
'// Designer-frmMain-Controls-ImageButton: name: "ImageButton1"
Msgbox("MyImageButton1_is clicked")
End Sub