CREAR EVENTO PARA CONTROL DE USUARIO

'En Control de usuario
Public Event eventClick(ByVal sender As System.Object, ByVal clickeado As Boolean)



Private Sub alHacer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT.Click, BT2.Click, Label1.Click
        RaiseEvent eventClick(Me, True)
End Sub


'En formulario
Private Sub BtTPV_eventClick(ByVal sender As Object, ByVal clickeado As Boolean) Handles BtTPV1.eventClick
 '...
End Sub