Ok moze i ovo gore proci al mislim da je ovo bolje:
Code:
Private Sub txtNesto_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57 ' Dozvoli cifre
Case 8 ' Dozvoli Backspace
Case 46 ' I tacku
Case Else
KeyAscii = 0
Beep
End Select
End Sub
[ :. n!t .: ]