ate m_hWndSource As Long
Private m_bShownAsPopup As Boolean
Private m_iRecursionLevel As Long

Public Sub Initialise( _
      ByVal hWnd As Long, _
      ByVal hWndSource As Long, _
      ByVal bShownAsPopup As Boolean, _
      ByVal iRecursionLevel As Long _
   )
   m_hWnd = hWnd
   m_hWndSource = hWndSource
   m_bShownAsPopup = bShownAsPopup
   m_iRecursionLevel = iRecursionLevel
End Sub

Public Property Get hWndSource() As Long
   hWndSource = m_hWndSource
End Property

Public Property Get ShownAsPopup()