Autocompletar datacombo

[boluart]

Lo que se es que se puede hacer con SHAutoComplete el problema es que solo te muestra la lista de archivos , directorios del sistema ahoa para que la lista que se despliega sea una lista personalizada hay que hacer ciertas cosas que aun no las eh intentado en VB6.0, pero si las tengo listo en VB.NET asi que si estas usando en VB.NET te paso algun link de donde bajarlo, aqui te pongo el codigo de como se autocompleta en VB6.0 claro que la lista que te muestra es la de los directorios y archivos del sistema:

Código:

 
 
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 Sub Form_Load()
SHAutoComplete Text1.hWnd, SHACF_DEFAULT
End Sub