Private Sub Panel1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
   Handles Panel1.Click
        MsgBox("geklickt")
End Sub

MfG
Mamon

"Alle sagten: Das geht nicht!
Dann kam einer, der wu?te das nicht, und der hat es gemacht."