Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox

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
 
    Private Sub PictureBox1_MouseEnter(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles PictureBox1.MouseEnter
        Me.PictureBox1.Image = _
        Global.Hauptfenster.My.Resources.Resources.rotkreuz14
    End Sub
 
    Private Sub PictureBox1_MouseLeave(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles PictureBox1.MouseLeave
        Me.PictureBox1.Image = _
        Global.Hauptfenster.My.Resources.Resources.schwarzkreuz
    End Sub
End Class

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