[AL_BRNS]

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

جرب التالي

PHP كود :

Private Sub Command1_Click()
If InStr(1, Text1.Text, "%", vbTextCompare) = 0 Then
Text1.Text = ""
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim s As String
 s = "1234567890%." & vbBack
 If InStr(s, Chr(KeyAscii)) = 0 Then
 KeyAscii = 0
 End If
End Sub 


بالتوفيق .