Lab+15

Public Class Form1 Dim Hours As Double Dim Pay As Double Dim Equation As Double Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Hours = Val(TextBox2.Text) Pay = Val(TextBox1.Text) Equation = Hours * Pay * 0.18 lblanswer.Text = Equation lblexempt.Text = "" End Sub Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Hours = Val(TextBox2.Text) Pay = Val(TextBox1.Text) Equation = Hours * Pay lblanswer.Text = Equation lblexempt.Text = "Exempt" End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub ExitToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click End End Sub End Class