【VB技巧】VB Timer控件以分钟为单位延时

VB Timer控件以分钟为单位延时/VB Timer按分钟延时：

Dim T  As Integer
Timer1.Interval = 60000                                                         '循环间隔为一分钟

Private Sub Timer1_Timer()
    If T
        T = T + 1                                                               '计数器+1
    Else                                                                        '大于等于30分钟
        T = 0                                                                   '计数器清零
        '这里填写到时间后要执行的代码
    End If
End Sub