Time Sheet System

A simple time in and time out time sheet, with hourly rate, overtime and the numbers of hours worked and calculates the daily wage of each employee.

Source Code:

Public Class Form1
    Dim hour1, hour2, hour3, hour4, hour5, hour6, hour7, hour8, hour9, hour10 As Double
    Dim hour11, hour12, hour13, hour14, hour15, hour16, hour17, hour18, hour19, hour20 As Double
    Dim th1, th2, th3, th4, th5, th6, th7, th8, th9, th10 As Double

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtTimeIn1.Enabled = False
        txtTimeIn2.Enabled = False
        txtTimeIn3.Enabled = False
        txtTimeIn4.Enabled = False
        txtTimeIn5.Enabled = False
        txtTimeIn6.Enabled = False
        txtTimeIn7.Enabled = False
        txtTimeIn8.Enabled = False
        txtTimeIn9.Enabled = False
        txtTimeIn10.Enabled = False

        txtTimeOut1.Enabled = False
        txtTimeOut2.Enabled = False
        txtTimeOut3.Enabled = False
        txtTimeOut4.Enabled = False
        txtTimeOut5.Enabled = False
        txtTimeOut6.Enabled = False
        txtTimeOut7.Enabled = False
        txtTimeOut8.Enabled = False
        txtTimeOut9.Enabled = False
        txtTimeOut10.Enabled = False

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        txtTimeIn1.Enabled = False
        txtTimeIn2.Enabled = False
        txtTimeIn3.Enabled = False
        txtTimeIn4.Enabled = False
        txtTimeIn5.Enabled = False
        txtTimeIn6.Enabled = False
        txtTimeIn7.Enabled = False
        txtTimeIn8.Enabled = False
        txtTimeIn9.Enabled = False
        txtTimeIn10.Enabled = False

        txtTimeOut1.Enabled = False
        txtTimeOut2.Enabled = False
        txtTimeOut3.Enabled = False
        txtTimeOut4.Enabled = False
        txtTimeOut5.Enabled = False
        txtTimeOut6.Enabled = False
        txtTimeOut7.Enabled = False
        txtTimeOut8.Enabled = False
        txtTimeOut9.Enabled = False
        txtTimeOut10.Enabled = False

        txtTimeIn1.Text = 0
        txtTimeIn2.Text = 0
        txtTimeIn3.Text = 0
        txtTimeIn4.Text = 0
        txtTimeIn5.Text = 0
        txtTimeIn6.Text = 0
        txtTimeIn7.Text = 0
        txtTimeIn8.Text = 0
        txtTimeIn9.Text = 0
        txtTimeIn10.Text = 0

        txtTimeOut1.Text = 0
        txtTimeOut2.Text = 0
        txtTimeOut3.Text = 0
        txtTimeOut4.Text = 0
        txtTimeOut5.Text = 0
        txtTimeOut6.Text = 0
        txtTimeOut7.Text = 0
        txtTimeOut8.Text = 0
        txtTimeOut9.Text = 0
        txtTimeOut10.Text = 0


        lblHW1.Text = 0
        lblHW2.Text = 0
        lblHW3.Text = 0
        lblHW4.Text = 0
        lblHW5.Text = 0
        lblHW6.Text = 0
        lblHW7.Text = 0
        lblHW8.Text = 0
        lblHW9.Text = 0
        lblHW10.Text = 0


        lblMon1.Text = "0.00"
        lblMon2.Text = "0.00"
        lblMon3.Text = "0.00"
        lblMon4.Text = "0.00"
        lblMon5.Text = "0.00"
        lblMon6.Text = "0.00"
        lblMon7.Text = "0.00"
        lblMon8.Text = "0.00"
        lblMon9.Text = "0.00"
        lblMon10.Text = "0.00"

        lblTue1.Text = "0.00"
        lblTue2.Text = "0.00"
        lblTue3.Text = "0.00"
        lblTue4.Text = "0.00"
        lblTue5.Text = "0.00"
        lblTue6.Text = "0.00"
        lblTue7.Text = "0.00"
        lblTue8.Text = "0.00"
        lblTue9.Text = "0.00"
        lblTue10.Text = "0.00"

        lblWed1.Text = "0.00"
        lblWed2.Text = "0.00"
        lblWed3.Text = "0.00"
        lblWed4.Text = "0.00"
        lblWed5.Text = "0.00"
        lblWed6.Text = "0.00"
        lblWed7.Text = "0.00"
        lblWed8.Text = "0.00"
        lblWed9.Text = "0.00"
        lblWed10.Text = "0.00"

        lblThu1.Text = "0.00"
        lblThu2.Text = "0.00"
        lblThu3.Text = "0.00"
        lblThu4.Text = "0.00"
        lblThu5.Text = "0.00"
        lblThu6.Text = "0.00"
        lblThu7.Text = "0.00"
        lblThu8.Text = "0.00"
        lblThu9.Text = "0.00"
        lblThu10.Text = "0.00"

        lblFri1.Text = "0.00"
        lblFri2.Text = "0.00"
        lblFri3.Text = "0.00"
        lblFri4.Text = "0.00"
        lblFri5.Text = "0.00"
        lblFri6.Text = "0.00"
        lblFri7.Text = "0.00"
        lblFri8.Text = "0.00"
        lblFri9.Text = "0.00"
        lblFri10.Text = "0.00"

        lblWage1.Text = "0.00"
        lblWage2.Text = "0.00"
        lblWage3.Text = "0.00"
        lblWage4.Text = "0.00"
        lblWage5.Text = "0.00"
        lblWage6.Text = "0.00"
        lblWage7.Text = "0.00"
        lblWage8.Text = "0.00"
        lblWage9.Text = "0.00"
        lblWage10.Text = "0.00"


        cboHr1.Text = 0.0
        cboHr2.Text = 0.0
        cboHr3.Text = 0.0
        cboHr4.Text = 0.0
        cboHr5.Text = 0.0
        cboHr6.Text = 0.0
        cboHr7.Text = 0.0
        cboHr8.Text = 0.0
        cboHr9.Text = 0.0
        cboHr10.Text = 0.0

        cboOt1.Text = 0.0
        cboOt2.Text = 0.0
        cboOt3.Text = 0.0
        cboOt4.Text = 0.0
        cboOt5.Text = 0.0
        cboOt6.Text = 0.0
        cboOt7.Text = 0.0
        cboOt8.Text = 0.0
        cboOt9.Text = 0.0
        cboOt10.Text = 0.0

        radMon.Checked = False
        radTue.Checked = False
        radWed.Checked = False
        radThu.Checked = False
        radFri.Checked = False
    End Sub

    Private Sub radMon_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radMon.CheckedChanged
        txtTimeIn1.Enabled = True
        txtTimeIn2.Enabled = True
        txtTimeIn3.Enabled = True
        txtTimeIn4.Enabled = True
        txtTimeIn5.Enabled = True
        txtTimeIn6.Enabled = True
        txtTimeIn7.Enabled = True
        txtTimeIn8.Enabled = True
        txtTimeIn9.Enabled = True
        txtTimeIn10.Enabled = True

        txtTimeOut1.Enabled = True
        txtTimeOut2.Enabled = True
        txtTimeOut3.Enabled = True
        txtTimeOut4.Enabled = True
        txtTimeOut5.Enabled = True
        txtTimeOut6.Enabled = True
        txtTimeOut7.Enabled = True
        txtTimeOut8.Enabled = True
        txtTimeOut9.Enabled = True
        txtTimeOut10.Enabled = True

    End Sub

    Private Sub radTue_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radTue.CheckedChanged
        Call radMon_CheckedChanged(sender, e)
    End Sub

    Private Sub radWed_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radWed.CheckedChanged
        Call radMon_CheckedChanged(sender, e)

    End Sub

    Private Sub radThu_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radThu.CheckedChanged
        Call radMon_CheckedChanged(sender, e)

    End Sub

    Private Sub radFri_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radFri.CheckedChanged
        Call radMon_CheckedChanged(sender, e)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim m As Double

        If radMon.Checked = True Then
            'time in 1
            hour1 = Val(txtTimeIn1.Text)
            hour2 = Val(txtTimeOut1.Text)
            th1 = hour2 - hour1
            lblHW1.Text = (th1 / 24)
            lblHW1.Text = Math.Round(lblHW1.Text * 24)
            lblMon1.Text = ((lblHW1.Text * cboHr1.Text) + (cboHr1.Text * cboOt1.Text))
            lblMon1.Text = FormatCurrency(lblMon1.Text)
            lblWage1.Text = lblMon1.Text

            'time in 2
            hour3 = Val(txtTimeIn2.Text)
            hour4 = Val(txtTimeOut2.Text)
            th2 = hour4 - hour3
            lblHW2.Text = (th2 / 24)
            lblHW2.Text = Math.Round(lblHW2.Text * 24)
            lblMon2.Text = ((lblHW2.Text * cboHr2.Text) + (cboHr2.Text * cboOt2.Text))
            lblMon2.Text = FormatCurrency(lblMon2.Text)
            lblWage2.Text = lblMon2.Text

            'time in 3
            hour5 = Val(txtTimeIn3.Text)
            hour6 = Val(txtTimeOut3.Text)
            th3 = hour6 - hour5
            lblHW3.Text = (th3 / 24)
            lblHW3.Text = Math.Round(lblHW3.Text * 24)
            lblMon3.Text = ((lblHW3.Text * cboHr3.Text) + (cboHr3.Text * cboOt3.Text))
            lblMon3.Text = FormatCurrency(lblMon3.Text)
            lblWage3.Text = lblMon3.Text


            'time in 4
            hour7 = Val(txtTimeIn4.Text)
            hour8 = Val(txtTimeOut4.Text)
            th4 = hour8 - hour7
            lblHW4.Text = (th4 / 24)
            lblHW4.Text = Math.Round(lblHW4.Text * 24)
            lblMon4.Text = ((lblHW4.Text * cboHr4.Text) + (cboHr4.Text * cboOt4.Text))
            lblMon4.Text = FormatCurrency(lblMon4.Text)
            lblWage4.Text = lblMon4.Text

            'time in 5
            hour9 = Val(txtTimeIn5.Text)
            hour10 = Val(txtTimeOut5.Text)
            th5 = hour10 - hour9
            lblHW5.Text = (th5 / 24)
            lblHW5.Text = Math.Round(lblHW5.Text * 24)
            lblMon5.Text = ((lblHW5.Text * cboHr5.Text) + (cboHr5.Text * cboOt5.Text))
            lblMon5.Text = FormatCurrency(lblMon5.Text)
            lblWage5.Text = lblMon5.Text

            'time in 6
            hour11 = Val(txtTimeIn6.Text)
            hour12 = Val(txtTimeOut6.Text)
            th6 = hour12 - hour11
            lblHW6.Text = (th6 / 24)
            lblHW6.Text = Math.Round(lblHW6.Text * 24)
            lblMon6.Text = ((lblHW6.Text * cboHr6.Text) + (cboHr6.Text * cboOt6.Text))
            lblMon6.Text = FormatCurrency(lblMon6.Text)
            lblWage6.Text = lblMon6.Text

            'time in 7
            hour13 = Val(txtTimeIn7.Text)
            hour14 = Val(txtTimeOut7.Text)
            th7 = hour14 - hour13
            lblHW7.Text = (th7 / 24)
            lblHW7.Text = Math.Round(lblHW7.Text * 24)
            lblMon7.Text = ((lblHW7.Text * cboHr7.Text) + (cboHr7.Text * cboOt7.Text))
            lblMon7.Text = FormatCurrency(lblMon7.Text)
            lblWage7.Text = lblMon7.Text

            'time in 8
            hour15 = Val(txtTimeIn8.Text)
            hour16 = Val(txtTimeOut8.Text)
            th8 = hour16 - hour15
            lblHW8.Text = (th8 / 24)
            lblHW8.Text = Math.Round(lblHW8.Text * 24)
            lblMon8.Text = ((lblHW8.Text * cboHr8.Text) + (cboHr8.Text * cboOt8.Text))
            lblMon8.Text = FormatCurrency(lblMon8.Text)
            lblWage8.Text = lblMon8.Text

            'time in 9
            hour17 = Val(txtTimeIn9.Text)
            hour18 = Val(txtTimeOut9.Text)
            th9 = hour18 - hour17
            lblHW9.Text = (th9 / 24)
            lblHW9.Text = Math.Round(lblHW9.Text * 24)
            lblMon9.Text = ((lblHW9.Text * cboHr9.Text) + (cboHr9.Text * cboOt9.Text))
            lblMon9.Text = FormatCurrency(lblMon9.Text)
            lblWage9.Text = lblMon9.Text

            'time in 10
            hour19 = Val(txtTimeIn10.Text)
            hour20 = Val(txtTimeOut10.Text)
            th10 = hour20 - hour19
            lblHW10.Text = (th10 / 24)
            lblHW10.Text = Math.Round(lblHW10.Text * 24)
            lblMon10.Text = ((lblHW10.Text * cboHr10.Text) + (cboHr10.Text * cboOt10.Text))
            lblMon10.Text = FormatCurrency(lblMon10.Text)
            lblWage10.Text = lblMon10.Text

        ElseIf radTue.Checked = True Then
            'time in 1 tue
            m = lblWage1.Text
            lblWage1.Text = ""
            hour1 = Val(txtTimeIn1.Text)
            hour2 = Val(txtTimeOut1.Text)
            th1 = hour2 - hour1
            lblHW1.Text = (th1 / 24)
            lblHW1.Text = Math.Round(lblHW1.Text * 24)
            lblTue1.Text = ((lblHW1.Text * cboHr1.Text) + (cboHr1.Text * cboOt1.Text))
            lblTue1.Text = FormatCurrency(lblTue1.Text)
            lblWage1.Text = lblTue1.Text
            lblWage1.Text = FormatCurrency(m + lblWage1.Text)

            'time in 2 tue
            m = lblWage2.Text
            lblWage2.Text = ""
            hour3 = Val(txtTimeIn2.Text)
            hour4 = Val(txtTimeOut2.Text)
            th2 = hour4 - hour3
            lblHW2.Text = (th2 / 24)
            lblHW2.Text = Math.Round(lblHW2.Text * 24)
            lblTue2.Text = ((lblHW2.Text * cboHr2.Text) + (cboHr2.Text * cboOt2.Text))
            lblTue2.Text = FormatCurrency(lblTue2.Text)
            lblWage2.Text = lblTue2.Text
            lblWage2.Text = FormatCurrency(m + lblWage2.Text)

            'time in 3 tue
            m = lblWage3.Text
            lblWage3.Text = ""
            hour5 = Val(txtTimeIn3.Text)
            hour6 = Val(txtTimeOut3.Text)
            th3 = hour6 - hour5
            lblHW3.Text = (th1 / 24)
            lblHW3.Text = Math.Round(lblHW3.Text * 24)
            lblTue3.Text = ((lblHW3.Text * cboHr3.Text) + (cboHr3.Text * cboOt3.Text))
            lblTue3.Text = FormatCurrency(lblTue3.Text)
            lblWage3.Text = lblTue3.Text
            lblWage3.Text = FormatCurrency(m + lblWage3.Text)

            'time in 4 tue
            m = lblWage4.Text
            lblWage4.Text = ""
            hour7 = Val(txtTimeIn4.Text)
            hour8 = Val(txtTimeOut4.Text)
            th4 = hour8 - hour7
            lblHW4.Text = (th4 / 24)
            lblHW4.Text = Math.Round(lblHW4.Text * 24)
            lblTue4.Text = ((lblHW4.Text * cboHr4.Text) + (cboHr4.Text * cboOt4.Text))
            lblTue4.Text = FormatCurrency(lblTue4.Text)
            lblWage4.Text = lblTue4.Text
            lblWage4.Text = FormatCurrency(m + lblWage4.Text)

            'time in 5 tue
            m = lblWage5.Text
            lblWage5.Text = ""
            hour9 = Val(txtTimeIn5.Text)
            hour10 = Val(txtTimeOut5.Text)
            th5 = hour10 - hour9
            lblHW5.Text = (th5 / 24)
            lblHW5.Text = Math.Round(lblHW5.Text * 24)
            lblTue5.Text = ((lblHW5.Text * cboHr5.Text) + (cboHr5.Text * cboOt5.Text))
            lblTue5.Text = FormatCurrency(lblTue5.Text)
            lblWage5.Text = lblTue5.Text
            lblWage5.Text = FormatCurrency(m + lblWage5.Text)

            'time in 6 tue
            m = lblWage6.Text
            lblWage6.Text = ""
            hour11 = Val(txtTimeIn6.Text)
            hour12 = Val(txtTimeOut6.Text)
            th6 = hour12 - hour11
            lblHW6.Text = (th6 / 24)
            lblHW6.Text = Math.Round(lblHW6.Text * 24)
            lblTue6.Text = ((lblHW6.Text * cboHr6.Text) + (cboHr6.Text * cboOt6.Text))
            lblTue6.Text = FormatCurrency(lblTue6.Text)
            lblWage6.Text = lblTue6.Text
            lblWage6.Text = FormatCurrency(m + lblWage6.Text)

            'time in 7 tue
            m = lblWage7.Text
            lblWage7.Text = ""
            hour13 = Val(txtTimeIn7.Text)
            hour14 = Val(txtTimeOut7.Text)
            th7 = hour14 - hour13
            lblHW7.Text = (th7 / 24)
            lblHW7.Text = Math.Round(lblHW7.Text * 24)
            lblTue7.Text = ((lblHW7.Text * cboHr7.Text) + (cboHr7.Text * cboOt7.Text))
            lblTue7.Text = FormatCurrency(lblTue7.Text)
            lblWage7.Text = lblTue7.Text
            lblWage7.Text = FormatCurrency(m + lblWage7.Text)

            'time in 8 tue
            m = lblWage8.Text
            lblWage8.Text = ""
            hour15 = Val(txtTimeIn8.Text)
            hour16 = Val(txtTimeOut8.Text)
            th8 = hour16 - hour17
            lblHW8.Text = (th2 / 24)
            lblHW8.Text = Math.Round(lblHW8.Text * 24)
            lblTue8.Text = ((lblHW8.Text * cboHr8.Text) + (cboHr8.Text * cboOt8.Text))
            lblTue8.Text = FormatCurrency(lblTue8.Text)
            lblWage8.Text = lblTue8.Text
            lblWage8.Text = FormatCurrency(m + lblWage8.Text)

            'time in 9 tue
            m = lblWage9.Text
            lblWage9.Text = ""
            hour17 = Val(txtTimeIn9.Text)
            hour18 = Val(txtTimeOut9.Text)
            th9 = hour18 - hour17
            lblHW9.Text = (th9 / 24)
            lblHW9.Text = Math.Round(lblHW9.Text * 24)
            lblTue9.Text = ((lblHW9.Text * cboHr9.Text) + (cboHr9.Text * cboOt9.Text))
            lblTue9.Text = FormatCurrency(lblTue9.Text)
            lblWage9.Text = lblTue9.Text
            lblWage9.Text = FormatCurrency(m + lblWage9.Text)

            'time in 10 tue
            m = lblWage10.Text
            lblWage10.Text = ""
            hour19 = Val(txtTimeIn10.Text)
            hour20 = Val(txtTimeOut10.Text)
            th10 = hour20 - hour19
            lblHW10.Text = (th10 / 24)
            lblHW10.Text = Math.Round(lblHW10.Text * 24)
            lblTue10.Text = ((lblHW10.Text * cboHr10.Text) + (cboHr10.Text * cboOt10.Text))
            lblTue10.Text = FormatCurrency(lblTue10.Text)
            lblWage10.Text = lblTue10.Text
            lblWage10.Text = FormatCurrency(m + lblWage10.Text)

        ElseIf radWed.Checked = True Then
            'time in 1 tue
            m = lblWage1.Text
            lblWage1.Text = ""
            hour1 = Val(txtTimeIn1.Text)
            hour2 = Val(txtTimeOut1.Text)
            th1 = hour2 - hour1
            lblHW1.Text = (th1 / 24)
            lblHW1.Text = Math.Round(lblHW1.Text * 24)
            lblWed1.Text = ((lblHW1.Text * cboHr1.Text) + (cboHr1.Text * cboOt1.Text))
            lblWed1.Text = FormatCurrency(lblWed1.Text)
            lblWage1.Text = lblWed1.Text
            lblWage1.Text = FormatCurrency(m + lblWage1.Text)

            'time in 2 tue
            m = lblWage2.Text
            lblWage2.Text = ""
            hour3 = Val(txtTimeIn2.Text)
            hour4 = Val(txtTimeOut2.Text)
            th2 = hour4 - hour3
            lblHW2.Text = (th2 / 24)
            lblHW2.Text = Math.Round(lblHW2.Text * 24)
            lblWed2.Text = ((lblHW2.Text * cboHr2.Text) + (cboHr2.Text * cboOt2.Text))
            lblWed2.Text = FormatCurrency(lblWed2.Text)
            lblWage2.Text = lblWed2.Text
            lblWage2.Text = FormatCurrency(m + lblWage2.Text)

            'time in 3 tue
            m = lblWage3.Text
            lblWage3.Text = ""
            hour5 = Val(txtTimeIn3.Text)
            hour6 = Val(txtTimeOut3.Text)
            th3 = hour6 - hour5
            lblHW3.Text = (th1 / 24)
            lblHW3.Text = Math.Round(lblHW3.Text * 24)
            lblWed3.Text = ((lblHW3.Text * cboHr3.Text) + (cboHr3.Text * cboOt3.Text))
            lblWed3.Text = FormatCurrency(lblWed3.Text)
            lblWage3.Text = lblWed3.Text
            lblWage3.Text = FormatCurrency(m + lblWage3.Text)

            'time in 4 tue
            m = lblWage4.Text
            lblWage4.Text = ""
            hour7 = Val(txtTimeIn4.Text)
            hour8 = Val(txtTimeOut4.Text)
            th4 = hour8 - hour7
            lblHW4.Text = (th4 / 24)
            lblHW4.Text = Math.Round(lblHW4.Text * 24)
            lblWed4.Text = ((lblHW4.Text * cboHr4.Text) + (cboHr4.Text * cboOt4.Text))
            lblWed4.Text = FormatCurrency(lblWed4.Text)
            lblWage4.Text = lblWed4.Text
            lblWage4.Text = FormatCurrency(m + lblWage4.Text)

            'time in 5 tue
            m = lblWage5.Text
            lblWage5.Text = ""
            hour9 = Val(txtTimeIn5.Text)
            hour10 = Val(txtTimeOut5.Text)
            th5 = hour10 - hour9
            lblHW5.Text = (th5 / 24)
            lblHW5.Text = Math.Round(lblHW5.Text * 24)
            lblWed5.Text = ((lblHW5.Text * cboHr5.Text) + (cboHr5.Text * cboOt5.Text))
            lblWed5.Text = FormatCurrency(lblWed5.Text)
            lblWage5.Text = lblWed5.Text
            lblWage5.Text = FormatCurrency(m + lblWage5.Text)

            'time in 6 tue
            m = lblWage6.Text
            lblWage6.Text = ""
            hour11 = Val(txtTimeIn6.Text)
            hour12 = Val(txtTimeOut6.Text)
            th6 = hour12 - hour11
            lblHW6.Text = (th6 / 24)
            lblHW6.Text = Math.Round(lblHW6.Text * 24)
            lblWed6.Text = ((lblHW6.Text * cboHr6.Text) + (cboHr6.Text * cboOt6.Text))
            lblWed6.Text = FormatCurrency(lblWed6.Text)
            lblWage6.Text = lblWed6.Text
            lblWage6.Text = FormatCurrency(m + lblWage6.Text)

            'time in 7 tue
            m = lblWage7.Text
            lblWage7.Text = ""
            hour13 = Val(txtTimeIn7.Text)
            hour14 = Val(txtTimeOut7.Text)
            th7 = hour14 - hour13
            lblHW7.Text = (th7 / 24)
            lblHW7.Text = Math.Round(lblHW7.Text * 24)
            lblWed7.Text = ((lblHW7.Text * cboHr7.Text) + (cboHr7.Text * cboOt7.Text))
            lblWed7.Text = FormatCurrency(lblWed7.Text)
            lblWage7.Text = lblWed7.Text
            lblWage7.Text = FormatCurrency(m + lblWage7.Text)

            'time in 8 tue
            m = lblWage8.Text
            lblWage8.Text = ""
            hour15 = Val(txtTimeIn8.Text)
            hour16 = Val(txtTimeOut8.Text)
            th8 = hour16 - hour17
            lblHW8.Text = (th2 / 24)
            lblHW8.Text = Math.Round(lblHW8.Text * 24)
            lblWed8.Text = ((lblHW8.Text * cboHr8.Text) + (cboHr8.Text * cboOt8.Text))
            lblWed8.Text = FormatCurrency(lblWed8.Text)
            lblWage8.Text = lblWed8.Text
            lblWage8.Text = FormatCurrency(m + lblWage8.Text)

            'time in 9 tue
            m = lblWage9.Text
            lblWage9.Text = ""
            hour17 = Val(txtTimeIn9.Text)
            hour18 = Val(txtTimeOut9.Text)
            th9 = hour18 - hour17
            lblHW9.Text = (th9 / 24)
            lblHW9.Text = Math.Round(lblHW9.Text * 24)
            lblWed9.Text = ((lblHW9.Text * cboHr9.Text) + (cboHr9.Text * cboOt9.Text))
            lblWed9.Text = FormatCurrency(lblWed9.Text)
            lblWage9.Text = lblWed9.Text
            lblWage9.Text = FormatCurrency(m + lblWage9.Text)

            'time in 10 tue
            m = lblWage10.Text
            lblWage10.Text = ""
            hour19 = Val(txtTimeIn10.Text)
            hour20 = Val(txtTimeOut10.Text)
            th10 = hour20 - hour19
            lblHW10.Text = (th10 / 24)
            lblHW10.Text = Math.Round(lblHW10.Text * 24)
            lblWed10.Text = ((lblHW10.Text * cboHr10.Text) + (cboHr10.Text * cboOt10.Text))
            lblWed10.Text = FormatCurrency(lblWed10.Text)
            lblWage10.Text = lblWed10.Text
            lblWage10.Text = FormatCurrency(m + lblWage10.Text)

        ElseIf radThu.Checked = True Then
            'time in 1 tue
            m = lblWage1.Text
            lblWage1.Text = ""
            hour1 = Val(txtTimeIn1.Text)
            hour2 = Val(txtTimeOut1.Text)
            th1 = hour2 - hour1
            lblHW1.Text = (th1 / 24)
            lblHW1.Text = Math.Round(lblHW1.Text * 24)
            lblThu1.Text = ((lblHW1.Text * cboHr1.Text) + (cboHr1.Text * cboOt1.Text))
            lblThu1.Text = FormatCurrency(lblThu1.Text)
            lblWage1.Text = lblThu1.Text
            lblWage1.Text = FormatCurrency(m + lblWage1.Text)

            'time in 2 tue
            m = lblWage2.Text
            lblWage2.Text = ""
            hour3 = Val(txtTimeIn2.Text)
            hour4 = Val(txtTimeOut2.Text)
            th2 = hour4 - hour3
            lblHW2.Text = (th2 / 24)
            lblHW2.Text = Math.Round(lblHW2.Text * 24)
            lblThu2.Text = ((lblHW2.Text * cboHr2.Text) + (cboHr2.Text * cboOt2.Text))
            lblThu2.Text = FormatCurrency(lblThu2.Text)
            lblWage2.Text = lblThu2.Text
            lblWage2.Text = FormatCurrency(m + lblWage2.Text)

            'time in 3 tue
            m = lblWage3.Text
            lblWage3.Text = ""
            hour5 = Val(txtTimeIn3.Text)
            hour6 = Val(txtTimeOut3.Text)
            th3 = hour6 - hour5
            lblHW3.Text = (th1 / 24)
            lblHW3.Text = Math.Round(lblHW3.Text * 24)
            lblThu3.Text = ((lblHW3.Text * cboHr3.Text) + (cboHr3.Text * cboOt3.Text))
            lblThu3.Text = FormatCurrency(lblThu3.Text)
            lblWage3.Text = lblThu3.Text
            lblWage3.Text = FormatCurrency(m + lblWage3.Text)

            'time in 4 tue
            m = lblWage4.Text
            lblWage4.Text = ""
            hour7 = Val(txtTimeIn4.Text)
            hour8 = Val(txtTimeOut4.Text)
            th4 = hour8 - hour7
            lblHW4.Text = (th4 / 24)
            lblHW4.Text = Math.Round(lblHW4.Text * 24)
            lblThu4.Text = ((lblHW4.Text * cboHr4.Text) + (cboHr4.Text * cboOt4.Text))
            lblThu4.Text = FormatCurrency(lblThu4.Text)
            lblWage4.Text = lblThu4.Text
            lblWage4.Text = FormatCurrency(m + lblWage4.Text)

            'time in 5 tue
            m = lblWage5.Text
            lblWage5.Text = ""
            hour9 = Val(txtTimeIn5.Text)
            hour10 = Val(txtTimeOut5.Text)
            th5 = hour10 - hour9
            lblHW5.Text = (th5 / 24)
            lblHW5.Text = Math.Round(lblHW5.Text * 24)
            lblThu5.Text = ((lblHW5.Text * cboHr5.Text) + (cboHr5.Text * cboOt5.Text))
            lblThu5.Text = FormatCurrency(lblThu5.Text)
            lblWage5.Text = lblThu5.Text
            lblWage5.Text = FormatCurrency(m + lblWage5.Text)

            'time in 6 tue
            m = lblWage6.Text
            lblWage6.Text = ""
            hour11 = Val(txtTimeIn6.Text)
            hour12 = Val(txtTimeOut6.Text)
            th6 = hour12 - hour11
            lblHW6.Text = (th6 / 24)
            lblHW6.Text = Math.Round(lblHW6.Text * 24)
            lblThu6.Text = ((lblHW6.Text * cboHr6.Text) + (cboHr6.Text * cboOt6.Text))
            lblThu6.Text = FormatCurrency(lblThu6.Text)
            lblWage6.Text = lblThu6.Text
            lblWage6.Text = FormatCurrency(m + lblWage6.Text)

            'time in 7 tue
            m = lblWage7.Text
            lblWage7.Text = ""
            hour13 = Val(txtTimeIn7.Text)
            hour14 = Val(txtTimeOut7.Text)
            th7 = hour14 - hour13
            lblHW7.Text = (th7 / 24)
            lblHW7.Text = Math.Round(lblHW7.Text * 24)
            lblThu7.Text = ((lblHW7.Text * cboHr7.Text) + (cboHr7.Text * cboOt7.Text))
            lblThu7.Text = FormatCurrency(lblThu7.Text)
            lblWage7.Text = lblThu7.Text
            lblWage7.Text = FormatCurrency(m + lblWage7.Text)

            'time in 8 tue
            m = lblWage8.Text
            lblWage8.Text = ""
            hour15 = Val(txtTimeIn8.Text)
            hour16 = Val(txtTimeOut8.Text)
            th8 = hour16 - hour17
            lblHW8.Text = (th2 / 24)
            lblHW8.Text = Math.Round(lblHW8.Text * 24)
            lblThu8.Text = ((lblHW8.Text * cboHr8.Text) + (cboHr8.Text * cboOt8.Text))
            lblThu8.Text = FormatCurrency(lblThu8.Text)
            lblWage8.Text = lblThu8.Text
            lblWage8.Text = FormatCurrency(m + lblWage8.Text)

            'time in 9 tue
            m = lblWage9.Text
            lblWage9.Text = ""
            hour17 = Val(txtTimeIn9.Text)
            hour18 = Val(txtTimeOut9.Text)
            th9 = hour18 - hour17
            lblHW9.Text = (th9 / 24)
            lblHW9.Text = Math.Round(lblHW9.Text * 24)
            lblThu9.Text = ((lblHW9.Text * cboHr9.Text) + (cboHr9.Text * cboOt9.Text))
            lblThu9.Text = FormatCurrency(lblThu9.Text)
            lblWage9.Text = lblThu9.Text
            lblWage9.Text = FormatCurrency(m + lblWage9.Text)

            'time in 10 tue
            m = lblWage10.Text
            lblWage10.Text = ""
            hour19 = Val(txtTimeIn10.Text)
            hour20 = Val(txtTimeOut10.Text)
            th10 = hour20 - hour19
            lblHW10.Text = (th10 / 24)
            lblHW10.Text = Math.Round(lblHW10.Text * 24)
            lblThu10.Text = ((lblHW10.Text * cboHr10.Text) + (cboHr10.Text * cboOt10.Text))
            lblThu10.Text = FormatCurrency(lblThu10.Text)
            lblWage10.Text = lblThu10.Text
            lblWage10.Text = FormatCurrency(m + lblWage10.Text)

        ElseIf radFri.Checked = True Then
            'time in 1 tue
            m = lblWage1.Text
            lblWage1.Text = ""
            hour1 = Val(txtTimeIn1.Text)
            hour2 = Val(txtTimeOut1.Text)
            th1 = hour2 - hour1
            lblHW1.Text = (th1 / 24)
            lblHW1.Text = Math.Round(lblHW1.Text * 24)
            lblFri1.Text = ((lblHW1.Text * cboHr1.Text) + (cboHr1.Text * cboOt1.Text))
            lblFri1.Text = FormatCurrency(lblFri1.Text)
            lblWage1.Text = lblWed1.Text
            lblWage1.Text = FormatCurrency(m + lblWage1.Text)

            'time in 2 tue
            m = lblWage2.Text
            lblWage2.Text = ""
            hour3 = Val(txtTimeIn2.Text)
            hour4 = Val(txtTimeOut2.Text)
            th2 = hour4 - hour3
            lblHW2.Text = (th2 / 24)
            lblHW2.Text = Math.Round(lblHW2.Text * 24)
            lblFri2.Text = ((lblHW2.Text * cboHr2.Text) + (cboHr2.Text * cboOt2.Text))
            lblFri2.Text = FormatCurrency(lblFri2.Text)
            lblWage2.Text = lblFri2.Text
            lblWage2.Text = FormatCurrency(m + lblWage2.Text)

            'time in 3 tue
            m = lblWage3.Text
            lblWage3.Text = ""
            hour5 = Val(txtTimeIn3.Text)
            hour6 = Val(txtTimeOut3.Text)
            th3 = hour6 - hour5
            lblHW3.Text = (th1 / 24)
            lblHW3.Text = Math.Round(lblHW3.Text * 24)
            lblFri3.Text = ((lblHW3.Text * cboHr3.Text) + (cboHr3.Text * cboOt3.Text))
            lblFri3.Text = FormatCurrency(lblFri3.Text)
            lblWage3.Text = lblFri3.Text
            lblWage3.Text = FormatCurrency(m + lblWage3.Text)

            'time in 4 tue
            m = lblWage4.Text
            lblWage4.Text = ""
            hour7 = Val(txtTimeIn4.Text)
            hour8 = Val(txtTimeOut4.Text)
            th4 = hour8 - hour7
            lblHW4.Text = (th4 / 24)
            lblHW4.Text = Math.Round(lblHW4.Text * 24)
            lblFri4.Text = ((lblHW4.Text * cboHr4.Text) + (cboHr4.Text * cboOt4.Text))
            lblFri4.Text = FormatCurrency(lblFri4.Text)
            lblWage4.Text = lblFri4.Text
            lblWage4.Text = FormatCurrency(m + lblWage4.Text)

            'time in 5 tue
            m = lblWage5.Text
            lblWage5.Text = ""
            hour9 = Val(txtTimeIn5.Text)
            hour10 = Val(txtTimeOut5.Text)
            th5 = hour10 - hour9
            lblHW5.Text = (th5 / 24)
            lblHW5.Text = Math.Round(lblHW5.Text * 24)
            lblFri5.Text = ((lblHW5.Text * cboHr5.Text) + (cboHr5.Text * cboOt5.Text))
            lblFri5.Text = FormatCurrency(lblFri5.Text)
            lblWage5.Text = lblFri5.Text
            lblWage5.Text = FormatCurrency(m + lblWage5.Text)

            'time in 6 tue
            m = lblWage6.Text
            lblWage6.Text = ""
            hour11 = Val(txtTimeIn6.Text)
            hour12 = Val(txtTimeOut6.Text)
            th6 = hour12 - hour11
            lblHW6.Text = (th6 / 24)
            lblHW6.Text = Math.Round(lblHW6.Text * 24)
            lblFri6.Text = ((lblHW6.Text * cboHr6.Text) + (cboHr6.Text * cboOt6.Text))
            lblFri6.Text = FormatCurrency(lblFri6.Text)
            lblWage6.Text = lblFri6.Text
            lblWage6.Text = FormatCurrency(m + lblWage6.Text)

            'time in 7 tue
            m = lblWage7.Text
            lblWage7.Text = ""
            hour13 = Val(txtTimeIn7.Text)
            hour14 = Val(txtTimeOut7.Text)
            th7 = hour14 - hour13
            lblHW7.Text = (th7 / 24)
            lblHW7.Text = Math.Round(lblHW7.Text * 24)
            lblFri7.Text = ((lblHW7.Text * cboHr7.Text) + (cboHr7.Text * cboOt7.Text))
            lblFri7.Text = FormatCurrency(lblFri7.Text)
            lblWage7.Text = lblFri7.Text
            lblWage7.Text = FormatCurrency(m + lblWage7.Text)

            'time in 8 tue
            m = lblWage8.Text
            lblWage8.Text = ""
            hour15 = Val(txtTimeIn8.Text)
            hour16 = Val(txtTimeOut8.Text)
            th8 = hour16 - hour17
            lblHW8.Text = (th2 / 24)
            lblHW8.Text = Math.Round(lblHW8.Text * 24)
            lblFri8.Text = ((lblHW8.Text * cboHr8.Text) + (cboHr8.Text * cboOt8.Text))
            lblFri8.Text = FormatCurrency(lblFri8.Text)
            lblWage8.Text = lblFri8.Text
            lblWage8.Text = FormatCurrency(m + lblWage8.Text)

            'time in 9 tue
            m = lblWage9.Text
            lblWage9.Text = ""
            hour17 = Val(txtTimeIn9.Text)
            hour18 = Val(txtTimeOut9.Text)
            th9 = hour18 - hour17
            lblHW9.Text = (th9 / 24)
            lblHW9.Text = Math.Round(lblHW9.Text * 24)
            lblFri9.Text = ((lblHW9.Text * cboHr9.Text) + (cboHr9.Text * cboOt9.Text))
            lblFri9.Text = FormatCurrency(lblFri9.Text)
            lblWage9.Text = lblFri9.Text
            lblWage9.Text = FormatCurrency(m + lblWage9.Text)

            'time in 10 tue
            m = lblWage10.Text
            lblWage10.Text = ""
            hour19 = Val(txtTimeIn10.Text)
            hour20 = Val(txtTimeOut10.Text)
            th10 = hour20 - hour19
            lblHW10.Text = (th10 / 24)
            lblHW10.Text = Math.Round(lblHW10.Text * 24)
            lblFri10.Text = ((lblHW10.Text * cboHr10.Text) + (cboHr10.Text * cboOt10.Text))
            lblFri10.Text = FormatCurrency(lblFri10.Text)
            lblWage10.Text = lblFri10.Text
            lblWage10.Text = FormatCurrency(m + lblWage10.Text)
        End If
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Application.Exit()
    End Sub
End Class

DOWNLOAD LINK: TimeSheet.rar