Public Function AddPageEx( _
   ByVal theDocument As Object, _
   ByVal ResourceFilename As String, _
   ByVal nBitmapID As Long, _
   ByVal Tooltip As String, _
   ByVal nOptions As Long _
) As Long