Raise Events

[Dorothy]

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?

[peet]

Option Explicit

Public Event UpArrowKeyPressed()

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