Timer1.Interval的最大值只能设为 65535，也就是65秒多。

你可以通过变量累加来实现大于这个数的循环值，比如把Timer1.Interval设为60000（即一分钟），然后：

Private Sub Form_Load()
    ' 启动定时器
    Timer1.Enabled = True
    Timer1.Interval = 60000'一分钟 60 * 1000ms=60000
End Sub

Private Sub Timer1_Timer()
    Static intMyTime As Integer
    intMyTime = (intMyTime + 1) Mod 10
    If intMyTime = 0 Then
        '10分钟到了！
    End If
End Sub