请教各位了，进来看看吧

Question

放一个FORM，然后在FORM上放一个TIME控件，在TIME控件的TIMER事件里写上打开下一个窗口的代码和关闭这个窗口的代码，然后RUN其实写在SUB MAIN里要好些…………

Answer 1

你可以用一个窗体和一个定时器，
show窗体，显示版权等信息后，用定时器将这个窗体unload，在show下一个程序正式窗体。

Answer 2

对啊，这个实现起来不是很容易的么，用定时器就可以搞定啊。
要不就用鼠标的单击或enter关闭这个弹出的窗口。

Answer 3

　　在你的程序初始化开始之前，一般在 Sub Main，现记录当前时间，然后 Show 你的 Splash Screen；接着初始化你的程序（读入注册表信息之类）、装入主窗体（不要 Show）。完毕后，用现在时间和刚才记录的时间比较，如果间隔很短，可以 Delay 一下，直到一定时间（比如五秒）。然后 Unload Splash Screen，show the main form。这样即不耽误程序启动，又保证可以显示 Splash Screen 至少五秒。一举两得。对了！Show Splash Screen 的时候一定要 DoEvents 一下，否则很有可能出问题，自己 Try 一下即可。

Answer 4

用API吧（俺就知道这一个用上了，嘿嘿）
一个form:
(名称)=pic
bordersytle=0
maxbutton=0
minbutton=0
scaleheight=X
scalewidth=X
两个timer:
timer1
interval=4000timer2
interval=2000一个image：
height=X
left=0
picture="你的画文件名"
stretch=0
width=X(X为任意数，你试着设吧）
打开api 查看器
找到setwindowpos(),swp-showwindow,swp-nosize找到并复制到vb的一个模块文件中
（这里俺说的笼统了，sorry,但一试就ok)
下面在mailform(主form里）的load事件中加入以下代码：
setwindwspos pic.hwnd,-1,pic.left/15,pic.top/15,pic.width/15,pic.height/15,_
swp_nosize or swp_showwindow
在image中的click事件中加入
unload pic
mainform.show
在timer1的timer事件中加入
unload pic
在timer1的timer事件中加入
mainform.show！！搞定！！试试吧！
祝好运

Answer 5

其实很简单，只要在sub main 先显示启动窗体，然后再显示主窗体，最后在主窗体的 Load 事件最后加上 Unload 启动窗体就可以。

Answer 6

用API吧（俺就知道这一个用上了，嘿嘿）
一个form:
(名称)=fpic
bordersytle=0
maxbutton=0
minbutton=0
scaleheight=X
scalewidth=X
两个timer:
timer1
interval=4000timer2
interval=2000一个imag（e在fpic里)：
height=X
left=0
picture="你的画文件名"
stretch=0
width=X(X为任意数，你试着设吧）
打开api 查看器
找到setwindowpos(),swp-showwindow,swp-nosize找到并复制到vb的一个模块文件中
（这里俺说的笼统了，sorry,但一试就ok)下面在mainform(主form里）的load事件中加入以下代码：
setwindwspos fpic.hwnd,-1,fpic.left/15_
,fpic.top/15,fpic.width/15,fpic.height/15,_
swp_nosize or swp_showwindow
在image中的click事件中加入
unload fpic
mainform.show
在timer1的timer事件中加入
unload fpic
在timer1的timer事件中加入
mainform.show！！搞定！！试试吧！
祝好运

Answer 7

最好这样做：
1、添加一个启动窗体frmSplash（VB自带有模板），把窗体的Interval属性设置为5000（5秒，时间你自己定）；
2、在模块中创建一个Sub Main()，并添加以下代码：
   frmSplash.Show
   frmSplash.ZOrder 0
   '在此处添加启动过程。
   '...
   '显示主窗体并卸载快速显示。
   MDIForm1.Show  '如果你是MDI窗体的话，如果不是，改成你的程序窗体名
   MDIForm1.ZOrder 1
3、在frmSplash窗体中添加一个Timer控件，加上以下代码：
Private Sub Timer1_Timer()
    Me.MousePointer = 1  '指针变为沙漏
    Unload Me
End Sub
这段程序让你的启动窗体显示5秒钟，而且让你的主窗体也显示，但显示在后面。5秒后启动窗体自己关闭。你也可以在启动窗体上加一个Click或KeyDown事件过程，让用户点击或者按键关闭这个窗口。

Answer 8

对了，不要忘了把工程的启动窗体改为Sub Main

Answer 9

添加Splash窗体，或者先用其它软件做一个启动画面，再用shell调用。

Answer 10

对不起，Sub Main()中，漏了一句：
Me.MousePointer = 11  '这个是沙漏

Answer 11

还有，如果要在frmSplash窗体中允许用户点击鼠标或敲击键盘以卸载frmSplash，你必须在frmSplah.Show之后，加上DoEvents语句

Answer 12

public sub main()
frmsplash.show
frnsplash.refresh
dim stptime
stptime=timer()
while timer()-stptime<10
wend
mainform.show
unload frmsplash
end sub