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

السلام عليكم ورحمة الله وبركاته
اخي ابو انس مشكور على الاجابة 
قمت بتحميل المثال لكنه لايتم الحساب وبخاصة عدد السنوات او المبلغ الزائد او المبالغ الكلية 
لان المطلوب كم سنة سيكون الراتب قد تخطى 15000 سواء بالنسبة او القيمة الثابتة يبدو ان هذه الجزئية فاتتك
وقد اعدت كتابة اكواد الحساب على النحو التالي بالاذن منك طبعا
انشء فورم جديدة فيها
- عدد 6 Textbox لعرض عدد السنين والمبلغ المزاد والمبالغ خلال السنوات لكل من الحالتين
- عدد 1 Checkbox نحتاجه لطريقة الحساب حسب نوع الزيادة
- عدد 1 Button

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       Dim Rateb As Double = 10000
       Dim lastRateb As Double = 15000
       Dim nesbeh As Double = 0.06
       Dim Thabeta As Double = 500
       Dim Totalyears As Integer = 0
       Dim newRateb As Double = 10000
       Dim ziada As Double = 0

       Dim totalWitNesba As Double = 0
       Dim totalWithabeteh As Double = 0
       ' الحساب وفق النسبة المئوية
       If Chk_ModeZiadeh.Checked = False Then
           While Rateb < lastRateb
               ziada = Rateb * nesbeh
               Rateb += ziada
               totalWitNesba += ziada
               Totalyears += 1
           End While
           TextBox1.Text = Totalyears
           TextBox2.Text = totalWitNesba.ToString("0.00")
           TextBox3.Text = (10000 * Totalyears) + totalWitNesba.ToString("0.00")
           ' الحساب وفق الزيادة الثابتة
       ElseIf Chk_ModeZiadeh.Checked = True Then
           While Rateb < lastRateb
               ziada = Thabeta
               Rateb += ziada
               totalWithabeteh += ziada
               Totalyears += 1
           End While
           TextBox4.Text = Totalyears
           TextBox5.Text = totalWithabeteh.ToString("0.00")
           TextBox6.Text = 10000 * Totalyears + totalWithabeteh.ToString("0.00")
       End If


   End Sub