Inherits System.Windows.Forms.Form
    Dim paycode As String
    Dim Hours As Integer
    Dim dblpaycode As String
    Dim dblpay As Double
    Dim dbltotalpay As Double


#Region " Windows Form Designer generated code "

    

    End Sub

#End Region

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

    End Sub

    Private Sub btnenter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenter.Click
        'Input
        paycode = Val(txtpaycode.Text)
        Hours = Val(txthours.Text)

        'Calc
        If (dblpaycode = "A") Then
            dblpay = 10

        ElseIf (dblpaycode = "B") Then
            dblpay = 20

        ElseIf (dblpaycode = "C") Then
            dblpay = 30
        End If

        If (Hours <= 40) Then
            dbltotalpay = Hours * 40
        Else
            dbltotalpay = (Hours - 40)

        End If

        'Output
        Label6.Text = dblpay