Debug.Print "Problem."
      End If
   End If

End Sub

Private Sub pInitialise()
Dim hInst As Long
Dim sStyle As String
Dim wStyle As Long
Dim lW As Long, lH As Long
          
   ' If we already have a window, then destroy it:
   pTerminate
   
   m_bDesignMode = Not (UserControl.Ambient.UserMode)
   
   If Not m_bDesignMode Then
      ' Start auto-complete on the text box:
      On Error Resume Next ' may not be supported
      SHAutoComplete txtFile.hwnd, SHACF_FILESYS_ONLY
      On Error GoTo 0
   
   