VB Timer 按任意时间间隔执行，VB Timer 按任意间隔执行，VB Timer 按任意时间间隔，VB Timer 任意时间间隔执行，VB Timer 任意间隔执行，VB Timer 任意时间执行，VB Timer 任意时间间隔，VB Timer 间隔，VB Timer。

VB Timer 按任意时间间隔执行：

Dim TmpTime As String, NowTime As String                                        '临时时间,当前时间

Private Sub Timer1_Timer()
    NowTime = Year(Date) & "-" & Month(Date) & "-" & Day(Date) & " " & Time     '获取当前时间
    If Len(TmpTime) = 0 Then TmpTime = NowTime                                  '如果临时时间为空则设置临时时间
    If DateDiff("S", TmpTime, NowTime) >= 5 Then                                '比较时间,S:以秒为单位;H以小时为单位;D:以天为单位;M:以月为单位
        MsgBox "时间到!"
        TmpTime = NowTime                                                       '设置临时时间
    End If
End Sub