Nascimento

Olá pessoal do vb6 eu estou precisando muito de uma função do combobox auto complete tipo fare Fox e Internet Explorer Só achei esta função em API, mas não para banco de dados o qual estou precisando Aki esta o exemplo do codigo: 'Private Const SHACF_AUTOAPPEND_FORCE_OFF = &H80000000 'Private Const SHACF_AUTOAPPEND_FORCE_ON = &H40000000 'Private Const SHACF_AUTOSUGGEST_FORCE_OFF = &H20000000 'Private Const SHACF_AUTOSUGGEST_FORCE_ON = &H10000000 '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_URLALL = (SHACF_URLHISTORY Or SHACF_URLMRU) Private Declare Sub SHAutoComplete Lib "shlwapi.dll" (ByVal hwndEdit As Long, ByVal dwFlags As Long) Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Sub Form_Load() Handle = FindWindowEx(Combo1.hWnd, 0, "edit", nullstring) SHAutoComplete Handle, SHACF_DEFAULT SHAutoComplete Text1.hWnd, SHACF_DEFAULT End Sub Coloque isso em um form e adicione um combobox e um textbox