vb.netです

スイッチを押したら３秒毎にビープ音をだすプログラムを作りたいのですが、オーバーフローになってできません。

どうしたらよいですか？

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       
        hajimetime = 3
        Timer1.Interval = 1000
        keikatime = 0
        Timer1.Start()


    End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        
        Dim nokoritime As Integer
        Dim i As Integer

        i = 0

 While (i < 10)
            keikatime = keikatime + 1

            nokoritime = hajimetime - keikatime

            If nokoritime = 0 Then

                Timer1.Stop()
                Beep()
                i = i + 1
            End If
　end　while

    End Sub
End Class