[转帖]去掉maoinfo软件封面!!

<P>1。新建一个VB工程，包含一个Form（FrmSplash)做应用程序的封面，一个模块（名叫Module1）。
2。在FrmSplash上添加一个时钟控件(Timer1)，将其Interval设为1000。
3。在Timer_click()事件中加入如下代码：</P>
<P> Private Sub Timer1_Timer()
 If i >= 3 Then
     Unload frmsplash
     Exit Sub
 End If
 i = i + 1
 End Sub</P>
<P>4。在Module1中加入如下代码：</P>
<P> Sub main()
     frmsplash.Show
     Dim a As Double
     a = Shell("C:\MapInfo\Professional\mapinfow.exe -nosplash C:\MapInfo\Professional\1.mbx", vbNormalFocus)
 End Sub</P>