Code:
Private Sub txtBroj_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtBroj.KeyDown
Select Case e.KeyValue
Case 48 To 57
Exit Sub
Case 46
Exit Sub
Case 37
Exit Sub
Case 39
Exit Sub
Case 96 To 105
Exit Sub
Case 27 'ako je u pitanju esc
Me.Close()
Case 8
Exit Sub
Case Else
e.SuppressKeyPress = True
End Select
End Sub
Private Sub txtBroj_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtBroj.KeyDown
Select Case e.KeyValue
Case 48 To 57
Exit Sub
Case 46
Exit Sub
Case 37
Exit Sub
Case 39
Exit Sub
Case 96 To 105
Exit Sub
Case 27 'ako je u pitanju esc
Me.Close()
Case 8
Exit Sub
Case Else
e.SuppressKeyPress = True
End Select
End Sub