[asto]

لابد من الاعتماد على تكست بوكس

و هذا الكود :

كود :

Private Sub Text2_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
End If
End Sub