Public Class Form1

    Dim Mon As String
    Dim Tue As String
    Dim wen As String
    Dim thu As String
    Dim fri As String
    Dim total As String



    Private Sub TxtTue_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtTue.TextChanged

    End Sub

    Private Sub BClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BClose.Click
        Me.Close()
    End Sub

    Private Sub BMwf_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BMwf.Click
        lblMon.ForeColor = Color.Green
        LblTue.ForeColor = Color.Red
        LblWed.ForeColor = Color.Green
        LblThu.ForeColor = Color.Red
        LblFri.ForeColor = Color.Green

    End Sub

    Private Sub BTT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTT.Click

        lblMon.ForeColor = Color.Red
        LblTue.ForeColor = Color.Green
        LblWed.ForeColor = Color.Red
        LblThu.ForeColor = Color.Green
        LblFri.ForeColor = Color.Red

    End Sub

    Private Sub BSame_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BSame.Click

        lblMon.ForeColor = Color.Yellow
        LblTue.ForeColor = Color.Yellow
        LblWed.ForeColor = Color.Yellow
        LblThu.ForeColor = Color.Yellow
        LblFri.ForeColor = Color.Yellow

    End Sub

    Private Sub BReport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BReport.Click

        'input

        Mon = (Me.TxtMon.Text)
        Tue = (Me.TxtTue.Text)
        Wen = (Me.TxtWen.Text)
        Thu = (Me.TxtThu.Text)
        Fri = (Me.TxtFri.Text)

        'Processing
        total = Mon + Tue + wen + thu + fri

        'Output: display mon-fri total

        total = Me.LstPay.Text




    End Sub

    Private Sub TxtMon_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtMon.TextChanged

        mon = TxtMon.Text


    End Sub
End Class