添加一个Timer,然后把间隔设值你要的时间。
Private Sub Form_Load()Timer1.Interval = 5000 ''每5秒激活End SubPrivate Sub Timer1_Timer()MsgBox "OK"Timer1.Enabled = False ''停止End Sub
Timer