[VB_Coder]

السلام عليكم

- جرب هذا الكود :

كود :

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim zNumbers As String
zNumbers="0123456789"
IF Instr(1,zNumbers,Chr(KeyAscii)) <> 0 Then
KeyAscii=0
Exit Sub
End IF
End Sub

- تحياتي .