Public Sub ExternalCommandEvent( _
   ByVal CommandId As Integer, _
   ByVal EventId As Integer _
)