'Hauptklasse
Sub ctlPanelHeaderHandle()
        Dim ctl As New ctlPanelHeader
        AddHandler ctl.CloseClick, AddressOf ClosePanelHeader
End Sub
 
Sub ClosePanelHeader()
        ...
End Sub

'Klasse mit meinen UserControls
Public Class ctlPanelHeader
    Event CloseClick()
    Public Sub PictureBox1_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles PictureBox1.Click
        RaiseEvent CloseClick()
    End Sub