C# と VB.NET の質問掲示板

開発環境：VisualStudio2008

最近VBをはじめてストップウォッチを作ろうと思ったのですが、
なかなかうまくいきません。

以下のように記述しています。

    Private Sub swTimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles swTimer.Tick
        Dim sec As Integer = 0    '秒
        Dim min As Integer = 0    '分
        Dim hour As Integer = 0   '時間

        sec += 1    '一秒進める

        If sec >= 60 Then
            min += 1
            sec = 0

            If min >= 60 Then
                hour += 1
                min = 0
            End If

        End If

        swLabel.Text = Format(hour, "00") & " : " & Format(min, "00") & " : " & Format(sec, "00")

    End Sub


ご存知の方がいれば、教えてください。
よろしくお願い致します。