[Alexander Max2]

لكتابة الارقام فقط تحتاج اجراء وليس دالة

للبساطة استخدم الكود التالي
وعدل عليه بما يناسب مشروعك ..

كود :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
   onlyNumbers(e)
End Sub

Public Sub OnlyNumbers(e As KeyPressEventArgs)
   If Char.IsDigit(e.KeyChar) = False And AscW(e.KeyChar) <> 8 Then
       e.Handled = True
   End If
End Sub