在VB中如何创建闪烁(标语)屏

大型应用系统启动运行的时间需要很长时间,其时间会根据需要初始化的数量和用户系统的速度变化,因此在主窗口显示前,应显示一个初始化窗口,使应用程序看起来更具吸引力,因为当装载程序时不断可以向用户显示一些信息，而且可产生美观的视觉效果。例如vb、delphi在启动时均在主界面前显示一splash窗口.
　　----1.下面是显示闪烁(标语)屏splash的一种简单方法:
　　
　　optionexplicit
　　privatesubform_load()
　　'显示主窗口
　　me.show
　　'显示splash窗口
　　frmsplash.show
　　doevents
　　'执行应用程序初始化
　　initialize
　　'关闭splash窗口
　　unloadspalsh
　　endsub
　　
　　----该过程代码应放在应用程序的启动窗体中。第一个show方法可使windows在屏幕上显示主窗体，下一个show方法显示闪烁屏，它是你设计的名为frmsplash的窗体.在利用show方法之后，再利用Doevents函数，以确保闪烁屏窗体的所有元数立即绘制完。Initialize函数执行应用程序在启动时需要执行的费时任务，例如，从文件中装载数据，将窗体装入内存等等。这时一切都准备就绪.
　　
　　----2.闪烁窗体模板
　　
　　----VisualBasic中含有许多摸板窗体，其中之一是闪烁屏。要为项目添加Splashscreen窗体，需要从project菜单中选择AddForm.在AddForm对话框的New标签上选择SplashScreen图标，并单击Open.这样SplashScreen窗体就被添加到项目中.
　　
　　----下列代码显示了如何定制SplashScreen窗体摸板的实例:
　　
　　optionexplicit
　　privatesubform_load()
　　frmsplash.lbllicenseto=app.legaltrademarks
　　frmsplash.lblcompanyproduct=app.productname
　　frmsplash.lblplatform="window98"
　　frmsplash.lblcopyright=app.legalcopyright
　　frmsplash.lblcompany=app.companyname
　　frmsplash.lblwarning="Warning:thisprogramisprotected"&_
　　"bycopyrightlaw,sodon'tcopy"
　　frmsplash.show
　　doevents
　　initialize
　　unloadfrmsplash
　　endsub
　　
　　----注意这里使用了app对象，该对象可以访问有关你的应用程序的信息;
　　
　　----splashscreen窗体摸板代码模块的代码如下所示:
　　
　　PrivateSubForm_keypress(keyasciiasinteger)
　　unloadme
　　Endsub
　　
　　Privatesubform_load()
　　lblversion.caption="version"&app.major&".
　　"app.minor"."app.revision
　　lblproductname.caption=app.title
　　endsub
　　privatesubframe1_click()
　　unloadme
　　EndSub->