[ruaa muslem]

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) And Not KeyAscii = 8 Then
KeyAscii = 0
Exit Sub
End If

End Sub

---

هذا فيما يخص كتابة الارقام في التكست اما المطاليب الاخرى لا علم لي بها

اخي شكرا جزيلا لكن اذا ممكن تشرح لي خطوه خطوه