VERSION 5.00
Begin VB.Form LoadPictureForm 
   BorderStyle     =   0  'None
   ClientHeight    =   8070
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   10740
   LinkTopic       =   "Form1"
   Picture         =   "LoadPictureForm.frx":0000
   ScaleHeight     =   8070
   ScaleWidth      =   10740
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer TimerInLoad 
      Interval        =   1
      Left            =   0
      Top             =   0
   End
End
Attribute VB_Name = "LoadPictureForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

'初始化界面,具體做法:
'    1. 想在LoadPictureForm初始化的時候就對MainForm初始化,但無法在Form_Load事件中運行Load MainForm命令,因此使用了一個技巧
'       在窗體上添加了Timer控件,在窗體初始化的時候打開Timer控件,同時還定義了LoadTime變量計數,也就是在Timer控件運行時,根據
'       LoadTime的值判斷是否可以加載MainForm

Option Explicit

Dim LoadTime As Integer    '計數變量

Private Sub Form_Load()
    LoadTime = 0
    TimerInLoad.Enabled = True    '打開計時器
End Sub

Private Sub TimerInLoad_Timer()    '當計數變量達到門限時加載主窗體
    If LoadTime > 1 Then
        TimerInLoad.Enabled = False
        Load MainForm
    Else
        LoadTime = LoadTime + 1
    End If
End Sub