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

Dim empid As Integer
Dim hworked As Integer
Dim hrate As Integer
Dim grosspay As Double
Dim netpay As Double
Dim tpay As Double
Const trate = 0.1



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

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

TextBox1.Text = empid
TextBox2.Text = hworked
TextBox3.Text = hrate
TextBox4.Text = grosspay
TextBox5.Text = tpay
Textbox6.text = netpay




End Sub
End Class