[ابراهيم ايبو]

السلام عليكم اخي الكريم Dubai.eig
انت لست بحاجة الى اي من  جمل اللوب بما انك تضغط على بوتون وعند كل ضغطة تريد الزيادة بـ 100 فيكفي هذا الكود
مايوجد في مربع النص زد عليه 100

كود :

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       TextBox1.Text += 100
 
   End Sub

ولكن اخي مهلا .. هذا الكود من ناحية برمجية ليس صجيجا لان مربع النص نص والزيادة رقم 
ولكن الفيجوال متساهل جدا في هذ المسائل والكود الصحيح يمر بعمليات تجويل من نص الى رقم  ثم اضافة رقم بعدها الاضافة في مربع النص محولا الى نص
والكود يجب ان يكون هكذا 

كود :

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Dim KK As Integer = Val(TextBox1.Text)
       KK += 100
       TextBox1.Text = KK.ToString()
   End Sub

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

كود :

  Dim KK As Integer = 100
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       TextBox1.Text += KK
       KK += 100
   End Sub