ليست پايين افتادني براي تكست باكس

[hrj1981]

دوستان سلام
يك سورسي رو بچه ها زحمت كشيده بودن براي نمايش درايو ها و ... براي تكس باكس (سورس زير) تو تالار گذاشته بودن ،حالا مي خواستم بدون اگر بخواهيم مقادير خودمونو به زير ليست بديم بايد چكار كنيم ؟(مثلا اطلاعات فراخواني شده از يك بانك اطلاعاتي)

Option Explicit
Private Declare Sub SHAutoComplete Lib "shlwapi.dll" (ByVal controlHandle As Long, ByVal completeFlags As Long)
'Various Flags you can set to be the source.
Private Const Defaults = &H0
Private Const Filesystem = &H1
Private Const HistoryList = &H2
Private Const URLRecentlyUsedList = &H4
Private Const AllURLs = (HistoryList Or URLRecentlyUsedList)
Private Const AllSystemsSources = AllURLs Or Filesystem
'Flags you can use to specify how your want autocomplete to react.
Private Const append = &H40000000 Or &H20000000
Private Const suggest = &H10000000 Or &H80000000
Private Const suggestAppend = &H40000000 Or &H10000000
Private Sub Form_Load()
SHAutoComplete Text1.hWnd, AllURLs Or AllSystemsSources
End Sub