[Ahmed_Mansoor]

وعليك السلام ورحمة الله وبركاته

أهلا بك أخي سالم , ضع هذا الكود في داخل كود المثال الذي أرفقته :

PHP كود :

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 8 Then Exit Sub

Dim zNumbers As String

zNumbers = "0123456789"

If InStr(1, zNumbers, Chr$(KeyAscii)) > 0 Then KeyAscii = 0: Exit Sub

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 8 Then Exit Sub

Dim zNumbers As String

zNumbers = "0123456789"

If InStr(1, zNumbers, Chr$(KeyAscii)) <= 0 Then KeyAscii = 0: Exit Sub

End Sub