Private Sub T_KeyPress(KeyAscii As Integer) If Provjera(KeyAscii) = False Then KeyAscii = 0 End Sub