...
  Dim l as Label
  AddHandler l.MouseClick, AddressOf Labels_MouseClick
...

  Public Shadows Event MouseClick(ByVal sender As Object, ByVal e As _
    MouseEventArgs)
 
  Private Sub Labels_MouseClick(ByVal sender As Object, ByVal e As _
    MouseEventArgs)
    RaiseEvent MouseClick(sender, e)
  End Sub

Gru?
(Bash)