[rafaag777]

ممكن تعمل الكود التالي:
كود لجعل صندوق النص لا يكتب إلا أرقاماً:

كود :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
       Dim txt As String = "0123456789"

       If txt.IndexOf(e.KeyChar) = -1 Then
           e.Handled = True
       End If
   End Sub

الكود الثاني لجعل صندوق النص يضيف لك الأصفار:

كود :

Private Sub TextBox1_Validating(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating
       TextBox1.Text = Strings.RSet(TextBox1.Text, 6)
       TextBox1.Text = Strings.Replace(TextBox1.Text, " ", "0")
   End Sub