Code used for Windows Run box or IE4.0 combobox.
Code used for Windows Run box or IE4.0 combobox.
Rate Code used for Windows Run box or IE4.0 combobox.
(1(1 Vote))
'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
Code used for Windows Run box or IE4.0 combobox. Comments
No comments yet — be the first to post one!
Post a Comment