WHILE 1
IF IEXECTIME>=INT(MILLITIME/1000) THEN
' ↑IEXECTIME=INT(MILLITIME/1000) では無いのを確認して下さい
'(60*5)秒に1回行う処理をここへ
IEXECTIME=IEXECTIME+(60*5)
ENDIF
WEND
-----
タイマーを使うのなら1秒に設定し…
NXTIME$="10:05:10"
'↑実際にはTIME$から5分後を作るルーチンが必要です
Private Sub Timer1_Timer()
IF NXTIME$>=TIME$ THEN
If hWndIE <> 0 Then Ret = PostMessage(hWndIE, &H111, &HA220, 0) 'IE更新