Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' use of text box with buttons

Dim empid As Integer
Dim hworked, hrate, grosspay As Double

empid = TextBox1.Text
hworked = TextBox2.Text
hrate = TextBox3.Text

grosspay = hrate * hworked
TextBox4.Text = grosspay

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = " "
TextBox2.Text = " "
TextBox3.Text = " "
TextBox4.Text = " "


End Sub
End Class