   ' Create the combo box:
      hInst = App.hInstance
      
      ' Set up style bits to get the appropriate type of
      ' window:
      sStyle = "LISTBOX"
      wStyle = WS_VISIBLE Or WS_CHILD
      wStyle = wStyle Or LBS_HASSTRINGS Or LBS_OWNERDRAWFIXED Or LBS_NOTIFY Or
       LBS_MULTICOLUMN
      wStyle = wStyle Or WS_HSCROLL
      lH = 48
      ' Create the window:
      lW = UserControl.Width \ Screen.TwipsPerPixelX
      m_hWndParent = UserControl.hwnd
      m_hWnd = CreateWindowEx( _
          W