Разработать программу, позволяющую заполнять форму стимулирующих надбавок и вычислять

[Мвнюня]

Разработать программу, позволяющую заполнять форму стимулирующих надбавок и вычислять

Здравствуйте,помогите пожалуйста написать программку на Visual Basice.
Разработать программу, позволяющую заполнять форму стимулирующих надбавок и вычислять общую сумму надбавки. Надбавка за ученую степень кандидата наук составляет 3000 рублей, доктора наук – 6000. Надбавка за интенсивность труда – 500 рублей, за вредность – 1000 рублей, за правительственные награды – 500 рублей. Каждый сотрудник имеет индивидуальный перечень надбавок.

 

[interacia]

Кнопка (Вычислить)

Private Sub Command1_Click()
Dim Sum As Integer
Sum = 0
If Option1.Value = True Then Sum = 3000
If Option2.Value = True Then Sum = 6000
If Check1.Value = 1 Then Sum = Sum + 500
If Check2.Value = 1 Then Sum = Sum + 1000
If Check3.Value = 1 Then Sum = Sum + 500
Text1.Text = Sum
End Sub