[RESOLVED] Simple User Control Question

[Edgemeal]

just another example, Add Click event and a mousemove event,

 ' UC code
Option Explicit
Public Event Click()
Public Event MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Private Sub Label1_Click()
    RaiseEvent Click
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    RaiseEvent MouseMove(Button, Shift, X, Y)
End Sub

BTW, If UCs are new to you then you should probably try the ActiveX Control Wizard, just have create a couple properties and events, then look at the code it creates and see how it works, it can be very tedious to all this stuff by hand unless its in your blood.