Just trigger the below code at ComboBox KeyPress Event.
Dim KeyAscii As Integer = Asc(e.KeyChar) Select Case KeyAscii Case 8, 27, 48 To 57, 9 Case Else KeyAscii = 0 End Select If KeyAscii = 0 Then e.Handled = True Else e.Handled = False End If
267 questions
253 answers
26 comments
188 users