Friend Function FireEvent(ByVal lParam As Long)