7,763
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Dim lngP As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub Form_Load()
lngP = GetTickCount
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
If GetTickCount - lngP > 600000 Then
MsgBox "OK"
lngP = GetTickCount
End If
End Sub