如何制作软件封面？

[giftlift]

每一个软件在启动时都有一个封面，显示应用程序名、作者以及版权信息等。MicroSoft Office软件封面的特点是当软件封面在屏幕出现后，后台继续加载主控程序窗体，当主控程序窗体加载完毕，封面自动关闭。可以通过调用SetWindowsPos借口函数来完成。
我现在有一个主控窗体:frmMain.frm 和一个封面窗体：frmCover.frm
希望实现的功能：在启动主控窗体时，在主控窗体frmMain的上方显示frmCover
在预定时间后， frmCover窗体自动关闭。

求：具体制作过程和代码 多谢！！

[zyl910]

写在SubMain中

Dim T as Single

frmCover.Show
frmMain.Show

T=Timer
Do Until T+10<Timer Or T>Timer '显示10秒
DoEvents
Loop

frmCover.Hide

[jin11]

Public Sub Main()
frmSplash.Show
frmSplash.Refresh

Load frmMain

frmMain.Show

Unload frmSplash
End Sub

[dgz01]

在你的封面FORM中加一个定时器,一定时间后自动UNLOAD,
编码自已想

★★★★★
打工好辛苦
★★★★★
钞票好难赚
★★★★★
编程好伤神
★★★★★
光阴好易混
★★★★★