Code

Option Explicit Private Declare Function SHAutoComplete Lib "Shlwapi.dll" _         (ByVal hWndEdit As Long, _         ByVal dwFlags As Long) As Long Public Enum SHAC_Constants     Default = &H0     FileSystem = &H1     URLHistory = &H2     URLMRU = &H4     URLAll = (&H2 Or &H4) End Enum Public Sub AutoComplete(txtItem As TextBox, lngType As SHAC_Constants)     On Error GoTo ErrHandler     SHAutoComplete txtItem.hWnd, lngType         Exit Sub    ErrHandler: End Sub Private Sub Form_Load()   AutoComplete Text1, Default End Sub

منبع:www.cesblog.ir