Option Explicit

Private Declare Function SHAutoComplete Lib "shlwapi" (ByVal _
      hWnd As Long, ByVal dwFlags As Long) As Long

Private Const SHACF_DEFAULT = &H0
Private Const SHACF_FILESYSTEM = &H1
Private Const SHACF_URLHISTORY = &H2
Private Const SHACF_URLMRU = &H4
Private Const SHACF_USETAB = &H8
Private Const SHACF_FILESYS_ONLY = &H10
Private Const SHACF_URLALL = (SHACF_URLHISTORY Or SHACF_URLMRU)

Private Const SHACF_AUTOSUGGEST_FORCE_ON = &H10000000
Private Const SHACF_AUTOSUGGEST_FORCE_OFF = &H20000000
Private Const SHACF_AUTOAPPEND_FORCE_ON = &H40000000
Private Const SHACF_AUTOAPPEND_FORCE_OFF = &H80000000

Private Sub Form_Load()
  EnableAutoComplete Text1.hWnd, 0&
End Sub

Function EnableAutoComplete(hWnd As Long, dwFlags As Long) _
         As Boolean

  On Error GoTo Err_AutoComplete

  SHAutoComplete hWnd, dwFlags
  EnableAutoComplete = True
  Exit Function

Err_AutoComplete:
  EnableAutoComplete = False
End Function