很好做啊,另外做一个界面,borderstyle=0,里面可以放一张图片什么的。再利用timer控件控制显示的时间。Private i As IntegerPrivate Sub Form_Load() i = 5 ''假设5秒关闭 Timer1.Interval = 1000 ''间隔1秒 Form2.Show vbModal ''显示欢迎窗口 End SubPrivate Sub Timer1_Timer() i = i - 1 If i = 0 Then Unload Form2 End Sub