[أبو عمر]

جرب هذا الكود لكن اي تكست على الفورم لا يقبل الا ارقاما فقط
وفي حال اردت ان تكتب في بعض مربعات النص عليك استصناءها

PHP كود :

Private Sub Form1_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
        For Each ctrl As Control In Me.Controls
            If TypeOf ctrl Is TextBox And Not IsNumeric(ctrl.Text) Then
                ctrl.BackColor = Color.LightPink
                ctrl.Text = ""
                Exit For
            End If
        Next ctrl
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        KeyPreview = True
    End Sub 


بالتوفيق