程序运行结束后，显示一画面3秒，再end，该怎么写？

Question

程序运行结束后，显示一画面3秒，再end，该怎么写？

Answer 1

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Sub Command1_Click()
    Sleep 3000
    
    End
End Sub

Answer 2

加一个窗体，上面放一个timer，然后定时为三秒触发，在事件中unload me,窗体背为你要的画面,设置成无边框的,OK.

Answer 3

Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)Sleep 3000

Answer 4

Private Sub Form_Load()
Timer1.Interval = 3000
End SubPrivate Sub Timer1_Timer()
End
End Sub

Answer 5

API：Sleep  3000就可以了

Answer 6

dim TimerS as Double
TimerS=timer+3
Do until Timer>Timers
  doevents
loop

Answer 7

用time控件，把值设为300。
有事找我
QQ：56375608
E—mail：[email protected]