[asmarsou]

وعليكم السلام و رحمة الله و بركاته
 هذا مثال للتكست بوكس الاول
بمكنك اكمال مشروعك بنفس الطريقة للتكستات الباقية
استعملت

PHP كود :

Public Class Form1
    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
    Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
        OnlyNumbers(e)
    End Sub
    Private Sub TextBox1_Leave(sender As Object, e As EventArgs) Handles TextBox1.Leave
        TextBox11.Text = Val(TextBox1.Text) * 4
    End Sub
End Class 


في هذا المثال كود قد طرحه احد الاخوة  مشكور في موضوع آخر