Public Class Form1

    Dim BtnClick1 As Boolean
    Dim BtnClick2 As Boolean
    Dim BtnClick3 As Boolean
    Dim BtnClick4 As Boolean
    Dim BtnClick5 As Boolean

    Dim StartTime1 As DateTime
    Dim PauseTime1 As DateTime
    Dim Start As TimeSpan
    Dim TotalTime As TimeSpan
    Dim TotalPaused1 As TimeSpan

    Dim StartTime2 As DateTime
    Dim PauseTime2 As DateTime
    Dim TotalPaused2 As TimeSpan

    Dim StartTime3 As DateTime
    Dim PauseTime3 As DateTime
    Dim TotalPaused3 As TimeSpan

    Dim StartTime4 As DateTime
    Dim PauseTime4 As DateTime
    Dim TotalPaused4 As TimeSpan

    Dim StartTime5 As DateTime
    Dim PauseTime5 As DateTime
    Dim TotalPaused5 As TimeSpan

    Dim StartTime6 As DateTime
    Dim PauseTime6 As DateTime
    Dim TotalPaused6 As TimeSpan

    Dim waktu1 As Integer
    Dim waktu2 As Integer
    Dim waktu3 As Integer
    Dim waktu4 As Integer
    Dim waktu5 As Integer
    Dim waktu As Integer

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles BtnStart1.Click
        StartTime1 = DateTime.Now
        Timer1.Start()
        BtnClick1 = True

        'Dim btn As Button = CType(sender, Button)
        'SetColor(btn)

        Call SetColor()
    End Sub

    Sub SetColor()
        BtnStart1.BackColor = Color.FromArgb(70, 171, 75)

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim ElapsedTime As TimeSpan = DateAndTime.Now.Subtract(StartTime1).Subtract(TotalPaused1)
        Label2.Text = ElapsedTime.Hours.ToString.PadLeft(2, "0"c) + "." + ElapsedTime.Minutes.ToString.PadLeft(2, "0"c) + "." + ElapsedTime.Seconds.ToString.PadLeft(2, "0"c)
        waktu = ElapsedTime.Seconds
        'waktu1 = ElapsedTime.Hours + ElapsedTime.Minutes + ElapsedTime.Seconds
    End Sub

    Private Sub BtnStart2_Click(sender As Object, e As EventArgs) Handles BtnStart2.Click

        If BtnClick1 = True Then
            Timer1.Enabled = False
            waktu1 = waktu1 + waktu
            'MessageBox.Show(waktu1)
        End If

        StartTime2 = DateTime.Now
        Timer2.Start()
        BtnClick2 = True
    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        Dim ElapsedTime2 As TimeSpan = DateAndTime.Now.Subtract(StartTime2).Subtract(TotalPaused2)
        Label3.Text = ElapsedTime2.Hours.ToString.PadLeft(2, "0"c) + "." + ElapsedTime2.Minutes.ToString.PadLeft(2, "0"c) + "." + ElapsedTime2.Seconds.ToString.PadLeft(2, "0"c)
        waktu = ElapsedTime2.Seconds
        'waktu2 = ElapsedTime2.Hours + ElapsedTime2.Minutes + ElapsedTime2.Seconds
    End Sub

    Private Sub BtnStart3_Click(sender As Object, e As EventArgs) Handles BtnStart3.Click
        If BtnClick2 = True Then
            Timer2.Enabled = False
            waktu2 = waktu2 + waktu1 + waktu
            MessageBox.Show(waktu2)
        End If

        StartTime3 = DateTime.Now
        Timer3.Start()
        BtnClick3 = True
    End Sub

    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
        Dim ElapsedTime3 As TimeSpan = DateAndTime.Now.Subtract(StartTime3).Subtract(TotalPaused3)
        Label5.Text = ElapsedTime3.Hours.ToString.PadLeft(2, "0"c) + "." + ElapsedTime3.Minutes.ToString.PadLeft(2, "0"c) + "." + ElapsedTime3.Seconds.ToString.PadLeft(2, "0"c)
        waktu = ElapsedTime3.Seconds
    End Sub


    Private Sub BtnStart4_Click(sender As Object, e As EventArgs) Handles BtnStart4.Click
        If BtnClick3 = True Then
            Timer3.Enabled = False
            waktu3 = waktu3 + waktu2 + waktu1 + waktu
            MessageBox.Show(waktu3)
        End If

        StartTime4 = DateTime.Now
        Timer4.Start()
        BtnClick4 = True
    End Sub

    Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
        Dim ElapsedTime4 As TimeSpan = DateAndTime.Now.Subtract(StartTime4).Subtract(TotalPaused4)
        Label7.Text = ElapsedTime4.Hours.ToString.PadLeft(2, "0"c) + "." + ElapsedTime4.Minutes.ToString.PadLeft(2, "0"c) + "." + ElapsedTime4.Seconds.ToString.PadLeft(2, "0"c)
        waktu = ElapsedTime4.Seconds
    End Sub

    Private Sub BtnStart5_Click(sender As Object, e As EventArgs) Handles BtnStart5.Click
        If BtnClick4 = True Then
            Timer4.Enabled = False
            waktu4 = waktu4 + waktu3 + waktu2 + waktu1 + waktu
            MessageBox.Show(waktu4)
        End If

        StartTime5 = DateTime.Now
        Timer5.Start()
        BtnClick5 = True
    End Sub

    Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles Timer5.Tick
        Dim ElapsedTime5 As TimeSpan = DateAndTime.Now.Subtract(StartTime5).Subtract(TotalPaused5)
        Label11.Text = ElapsedTime5.Hours.ToString.PadLeft(2, "0"c) + "." + ElapsedTime5.Minutes.ToString.PadLeft(2, "0"c) + "." + ElapsedTime5.Seconds.ToString.PadLeft(2, "0"c)
        waktu = ElapsedTime5.Seconds
    End Sub

    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles BtnStart6.Click
        If BtnClick5 = True Then
            Timer5.Enabled = False
            waktu5 = waktu5 + waktu4 + waktu3 + waktu2 + waktu1 + waktu
            MessageBox.Show(waktu5)
        End If

        StartTime6 = DateTime.Now
        Timer6.Start()
        'BtnClick = True
    End Sub

    Private Sub Timer6_Tick(sender As Object, e As EventArgs) Handles Timer6.Tick
        Dim ElapsedTime6 As TimeSpan = DateAndTime.Now.Subtract(StartTime6).Subtract(TotalPaused6)
        Label9.Text = ElapsedTime6.Hours.ToString.PadLeft(2, "0"c) + "." + ElapsedTime6.Minutes.ToString.PadLeft(2, "0"c) + "." + ElapsedTime6.Seconds.ToString.PadLeft(2, "0"c)
        waktu = ElapsedTime6.Seconds
    End Sub
    Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles Button1.Click
        Form2.Show()
        Me.Hide()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MaximizeBox = False
    End Sub
End Class