Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim empid, hworked, hrate, As Integer
Dim grosspay, netpay, regpay , tpay, ovt, ovtpay  As Single
Const rate = 0.1


empid = InputBox("Enter Employee ID")
hworked = InputBox("Enter Hours Worked")
hrate = InputBox("Enter Hourly Rate")

If (hworked > 40) Then

ovt = (hworked - 40)
ovtpay = (ovt * hrate * 1.5)
grosspay = 40 * hrate + ovtpay
tpay = grosspay * trate
netpay = grosspay - tpay

Else

ovt = 0
ovtpay = 0
grosspay = hrate * hworked
tpay = grosspay * trate
grosspay = grosspay * hrate

netpay = grosspay - tpay

End If

'grosspay = hrate * hworked
'tpay = grosspay * trate
'netpay = grosspay - tpay

TextBox1.Text = empid
TextBox2.Text = hworked
TextBox3.Text = hrate
TextBox4.Text = ovtpay
TextBox5.Text = grosspay
TextBox6.Text = tpay
TextBox7.Text = netpay


End Sub
End Class