Practice #4 number 2

Dim total, goal, months, pay, years As Integer months = 0
　
pay = 25 

months += 1
total += pay 'adds pay CInt(txtMonthyIncome.Text) 

Do While total < 10000

LooplblYears.Text = (months / 12).ToString ' loops months so that a counnter is kept