Public Sub OnCommandUpdateUI( _
   ByVal nCmdID As Long, _
   ByVal Context As Long, _
   ByVal ActiveDocumentType As Long, _
   ByVal pActiveDocument As Object, _
   ByVal pActiveWindow As Object, _
   ByVal pActiveSelectSet As Object, _
   ByRef lCmdFlags As Long, _
   ByRef MenuItemText As String, _
   ByRef nIDBitmap As Long _
)