[VB.NET] Count Down Timer Dengan ProgressBar

Salam semua!, mau masak tetapi takut gosong dan tidak punya penghitung waktu mundur?, coba deh yang satu ini. Source code nya sederhana. Programnya adalah penghitung waktu
mundur tetapi dilengkapi ProgressBar. Copas aja ciiiiinnnnnnnn, hehehehe

Deklarasi:
1 Form
1 Timer
2 Label
2 TextBox
1 ProgressBar
1 Button

Atur sedemikian rupa hingga menjadi:

Nah, tambahkan source code sebagai berikut:

Public Class Form1
    Dim Time As System.Int64

    'Sound Player Function
    Private Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long

    Private Const MB_ICONHAND = &H10&

    Private Sub cmdStartStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStartStop.Click
        On Error GoTo 0
        tmrCntDwn.Enabled = Not tmrCntDwn.Enabled
        If tmrCntDwn.Enabled Then
            ' -1, artinya ngurangi 1 dtk krn timer bru berjalan setelah 1 dtk
            Time = (Val(txtHours.Text) * 3600 + (Val(txtMinute.Text) * 60)) - 1
            cmdStartStop.Text = "Stop"
            pbTime.Minimum = 0
            pbTime.Maximum = Time
            pbTime.Value = Time
        Else
            cmdStartStop.Text = "Start"
            Time = 0
        End If
    End Sub

    Private Sub tmrCntDwn_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrCntDwn.Tick
        If Time <= 0 Then
            MessageBeep(MB_ICONHAND)
            Exit Sub
        End If

        Time = Time - 1
        pbTime.Value = Time
        Debug.Print(Time)
    End Sub

    Private Sub txtMinute_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtMinute.KeyPress
        If Not ((Asc(e.KeyChar) >= Asc("0")) And (Asc(e.KeyChar) <= Asc("9")) _
        Or (Asc(e.KeyChar) = Keys.Back) Or e.KeyChar = ".") Then e.KeyChar = Chr(Keys.None)
    End Sub


    Private Sub txtHours_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtHours.KeyPress
        If Not ((Asc(e.KeyChar) >= Asc("0")) And (Asc(e.KeyChar) <= Asc("9")) _
        Or (Asc(e.KeyChar) = Keys.Back) Or e.KeyChar = ".") Then e.KeyChar = Chr(Keys.None)
    End Sub

End Class

Sederhana bukan??, jangan lupa komentarnya yaaa. See Yaa........ Jangan Lupa Komentar Yaa..