如何去掉 Mapinfo 的软件封面

利用VB来实现此功能：
1。新建一个VB工程，包含一个Form（FrmSplash)做应用程序的封面，一个模块（名叫Module1）。
2。在FrmSplash上添加一个时钟控件(Timer1)，将其Interval设为1000。
3。在Timer_click()事件中加入如下代码：

 Private Sub Timer1_Timer()
 If i >= 3 Then
     Unload frmsplash
     Exit Sub
 End If
 i = i + 1
 End Sub

4。在Module1中加入如下代码：

 Sub main()
     frmsplash.Show
     Dim a As Double
     a = Shell("C:MapInfoProfessionalmapinfow.exe -nosplash C:MapInfoProfessional1.mbx", vbNormalFocus)
 End Sub