Option Explicit

Private Const SHACF_AUTOSUGGEST_FORCE_ON As Long = &H10000000

Private Const SHACF_AUTOSUGGEST_FORCE_OFF As Long = &H20000000

Private Const SHACF_AUTOAPPEND_FORCE_ON As Long = &H40000000

Private Const SHACF_AUTOAPPEND_FORCE_OFF As Long = &H80000000

Private Const SHACF_DEFAULT As Long = &H0

Private Const SHACF_FILESYSTEM As Long = &H1

Private Const SHACF_URLHISTORY As Long = &H2

Private Const SHACF_URLMRU As Long = &H4

Private Const SHACF_URLALL As Long = (SHACF_URLHISTORY Or SHACF_URLMRU)

Private Const DLLVER_PLATFORM_WINDOWS As Long = &H1 'Windows 95

Private Const DLLVER_PLATFORM_NT As Long = &H2    'Windows NT

Private Type DllVersionInfo

  cbSize As Long

  dwMajorVersion As Long

  dwMinorVersion As Long

  dwBuildNumber As Long

  dwPlatformID As Long

End Type

Private Declare Function SHAutoComplete Lib "shlwapi" _

 (ByVal hwndEdit As Long, _

  ByVal dwFlags As Long) As Long

Private Declare Function DllGetVersion Lib "shlwapi" _

 (dwVersion As DllVersionInfo) As Long

Private Function GetIEVersion(DVI As DllVersionInfo) As Long

  DVI.cbSize = Len(DVI)

  Call DllGetVersion(DVI)

  GetIEVersion = DVI.dwMajorVersion

End Function

Private Function GetIEVersionString() As String

  Dim DVI As DllVersionInfo

  DVI.cbSize = Len(DVI)

  Call DllGetVersion(DVI)

  GetIEVersionString = "Internet Explorer " & _

            DVI.dwMajorVersion & "." & _

            DVI.dwMinorVersion & "." & _

            DVI.dwBuildNumber

End Function

Private Sub Command1_Click()

  Dim DVI As DllVersionInfo

  If GetIEVersion(DVI) >= 5 Then

   Call SHAutoComplete(Text1.hWnd, SHACF_DEFAULT)

   Command1.Caption = "SHAutoComplete is On"

   Command1.Enabled = False

   Text1.SetFocus

   Text1.SelStart = Len(Text1.Text)

  Else

   MsgBox "Sorry ... you need IE5 to use this demo", vbExclamation

  End If

End Sub

Private Sub Form_Load()

  Dim DVI As DllVersionInfo

  Label1.Caption = "Using Shlwapi.dll for " & GetIEVersionString

  Command1.Enabled = GetIEVersion(DVI) >= 5

  Command1.Caption = "SHAutoComplete is Off"

End Sub