Как обойти ограничение таймера? - VB

Формулировка задачи:

Здравствуйте! Встал вопрос о том, как обойти ограничение таймера (1000*60). Пользователь вводит 2 значания: кол-во минут и кол-во секунд. Далее происходит вычисление общего числа секунд: seconds = min * 60 + sec И возникает ошибка в блоке описанной функции:

                    Листинг программы
                
 
                        
                          
                    
Public Sub wait(ByVal seconds As Integer)
Timer1.Enabled = True
Timer1.Interval = 1000 * seconds
While Timer1.Interval > 0
DoEvents
Wend
Timer1.Enabled = False
End Sub

Подскажите пожалуйста, как обойти данную проблему.

Решение задачи: «Как обойти ограничение таймера?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Dim sc As Long, seconds As Long
Private Sub Command2_Click()
seconds = 20
sc = 0
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
If sc < seconds Then
sc = sc + 1
Label1 = sc
Else
Timer1.Enabled = False
Label1 = "ok"
End If
End Sub