Vb timer kontrolü

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = "1000"
        Timer1.Enabled = False
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        lblSure.Text = lblSure.Text + 1
        If lblSure.Text = "6" Then ' Saniyenin 1 fazlası (Örnek : 13 ise 14 yazılacak)
            Timer1.Stop()
            ' TimerHack.Stop (Aynı mantık ile 5 saniye yapıyor sonra duruyor)
            System.Threading.Thread.Sleep(5000) ' Kaç saniye sonra tekrar başlıyacağı MS cinsinden
            lblSure.Text = "0"
            Timer1.Start()
            ' TimerHack.Start (Aynı mantık ile 5 saniye yapıyor sonra yeniden başlıyor)
        End If
    End Sub