by P#0b1X (1 Submission)
Category: Miscellaneous
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Tue 19th October 1999
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Code used for Windows Run box or IE4.0 combobox.
'into the KeyUp sub.
For X = 0 To combo1.ListCount
Dim g
g = Len(combo1.text)
If combo1.text = Mid$(combo1.List(X), 1, g) Then
combo1.text = combo1.List(X)
combo1.SelStart = g
combo1.SelLength = Val(Len(combo1.List(X))) - g
Exit For
End If
Next X