Question

VB中 窗体启动1秒钟后 做一件事情

VB中 窗体启动1秒钟后 做一件事情，只做一次

Answer 1

窗体中放入一个Timer

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
'要做的事情
'........
Timer1.Enabled = False
End Sub

Answer 2

'用API
Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Private Sub Form_Load（）
Sleep 1000
'做你想做的事情
End Sub

Answer 3

加个Timer控件，吧他的Interval 设置成1000（ms）然后他的enabled属性设置为false