• Home
 · 
• Miscellaneous
 · 
• Code used for Windows Run box or IE4.0 combobox.

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
• 2
• 3
• 4
• 5

(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