 0, _
                             Optional nHeight As Long = 0, _
                             Optional sCaption As String = "", _
                             Optional hWndParent As Long = 0, _
                             Optional hMenu As Long = 0, _
                             Optional lParam As Long = 0) As Long
Dim hWnd    As Long, _
    sClass  As String
  
  Debug.Assert (Not (m_Owner Is Nothing))                 'LOGIC ERROR! the
   Owner must be set before calling this methos
  
  Select Case Cl