Public Class ControlPanelArray
    Inherits System.Windows.Forms.Panel
 
    Public Event InternalControlClick(ByVal sender As Object, ByVal e As _
      EventArgs)
    Public Event InternalControlKeyPress(ByVal sender As Object, ByVal e As _
    KeyPressEventArgs)
    Public Event InternalControlMouseUp(ByVal sender As Object, ByVal e As _
    MouseEventArgs)
 
    Private Sub InternalClickHandler(ByVal sender As Object, ByVal e As _
      EventArgs)
        RaiseEvent InternalControlClick(sender, e)
    End Sub
    Private Sub InternalKeyPressHandler(ByVal sender As Object, ByVal e As _
      KeyPressEventArgs)
        RaiseEvent InternalControlKeyPress(sender, e)
    End Sub
    Private Sub InternalMouseUpHandler(ByVal sender As Object, ByVal e As _
      MouseEventArgs)
        RaiseEvent InternalControlMouseUp(sender, e)
    End Sub
 
    Private Sub ControlArrayPanel_ControlAdded(ByVal sender As Object, ByVal e _
      As System.Windows.Forms.ControlEventArgs) _
     Handles MyBase.ControlAdded
        AddHandler e.Control.Click, AddressOf InternalClickHandler
        AddHandler e.Control.KeyPress, AddressOf InternalKeyPressHandler
        AddHandler e.Control.MouseUp, AddressOf InternalMouseUpHandler
    End Sub
 
    Private Sub ControlArrayPanel_ControlRemoved(ByVal sender As Object, ByVal _
      e As System.Windows.Forms.ControlEventArgs) _
     Handles MyBase.ControlRemoved
        RemoveHandler e.Control.Click, AddressOf InternalClickHandler
        RemoveHandler e.Control.KeyPress, AddressOf InternalKeyPressHandler
        RemoveHandler e.Control.MouseUp, AddressOf InternalMouseUpHandler
    End Sub
End Class