[عبد الله190]

السلام عليكم
اقترح عليك هذا الكود

Option Explicit

Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const ES_NUMBER As Long = &H2000&
Private Const GWL_STYLE As Long = -16
Private Sub MakeNumericOnly(Obj As Object)

Dim Style As Long
Style = GetWindowLong(Obj.hwnd, GWL_STYLE)
Style = Style Or ES_NUMBER
SetWindowLong Obj.hwnd, GWL_STYLE, Style
End Sub
() Private Sub Form_Load
MakeNumericOnly Text1
End Sub

أو هذا الكود البسيط جدا المكون من سطر واحد

كود :

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Not Chr(KeyAscii) Like "[0123456789.]" Then KeyAscii = 0
    End Sub

ملاحظة: إذا أردت أن تكتب الأرقام السالبة فأضف الإشارة (ـ) إلى الأرقام والفاصلة أو النقطة: -.0123456789 وغيرها مما تسمح باستعماله