Visual Basics

Public Class Form1

    Private Sub btnWage_Click(sender As Object, e As EventArgs) Handles btnWage.Click
        Dim sngHours As Single = Val(txtHours.Text)
        Dim SngRate As Single = Val(txtRate.Text)
        Dim sngWage As Single = sngHours * SngRate

        sngWage = lblWage


        Select Case sngHours
            Case 0 - 39
                sngWage = sngHours * SngRate
            Case > 40
                sngWage = ((sngHours - 40) + (SngRate * 1.5)) + (sngHours * SngRate)
        End Select



    End Sub
End Class