利用VB來(lái)實(shí)現(xiàn)此功能：
1。新建一個(gè)VB工程，包含一個(gè)Form（FrmSplash)做應(yīng)用程序的封面，一個(gè)模塊（名叫Module1）。
2。在FrmSplash上添加一個(gè)時(shí)鐘控件(Timer1)，將其Interval設(shè)為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