Write a program to compute the basic pay ?

Private Sub Command1_Click()
Dim bp, hr, ma, ca, net As Integer
If Option1.Value = True Then
bp = 5000
ElseIf Option2.Value = True Then
bp = 3000
ElseIf Option3.Value = True Then
bp = 1500
End If
net = bp
If Check1.Value = 1 Then net = net + bp * 0.45
If Check2.Value = 1 Then net = net + bp * 0.02
If Check3.Value = 1 Then net = net + bp * 0.15
Text1.Text = net
End Sub


Posted by: Wasim Javed