Public Function AddPage( _
   ByVal theDocument As Object, _
   ByVal InstanceHandle As Long, _
   ByVal nBitmapID As Long, _
   ByVal Tooltip As String, _
   ByVal nOptions As Long _
) As Long