Raise Events

I need to create my own event for my ActiveX controls?
Like a event onPick(my own name) which is fired when the user presses the Up arrow key?

Code:

---

Option Explicit

Public Event UpArrowKeyPressed()

Private Sub UserControl_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyUp Then RaiseEvent UpArrowKeyPressed
End Sub

---