[mini]

作者: chung1206

感謝大大，我將10800改為120，我想二分鐘偵測一次，但測試過了
二分鐘後連動都沒動，不知問題出在那，程式碼如下：

Private Sub Timer1_Timer()
Dim NowSecond As Long
NowSecond = (Date - StartDate) * 86400 + Timer
If NowSecond - StartSecond >= 120 Then
End If
StartDate = Date
StartSecond = Timer
Call Command1_Click
Me.WindowState = 0
End Sub

謝謝。

IF 區塊裡沒有什麼程式碼
當然就什麼都不會做
你可以放個 msgbox "兩分鐘到了"
看看有沒有反應

還有 Timer1.Interval屬性 要給他一個小於 1000的值(500應該就可以了)