loadform.frm

供销信息查询系统

VERSION 5.00
Begin VB.Form loadform 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   BorderStyle     =   0  'None
   ClientHeight    =   3585
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5925
   ControlBox      =   0   'False
   Icon            =   "loadform.frx":0000
   LinkTopic       =   "Form1"
   Moveable        =   0   'False
   ScaleHeight     =   3585
   ScaleWidth      =   5925
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   2760
      Top             =   120
   End
   Begin VB.Image Image2 
      Height          =   480
      Left            =   200
      Picture         =   "loadform.frx":0CCA
      Top             =   120
      Width           =   480
   End
   Begin VB.Image Image1 
      Height          =   3540
      Left            =   0
      Picture         =   "loadform.frx":1594
      Stretch         =   -1  'True
      Top             =   0
      Width           =   5925
   End
End
Attribute VB_Name = "loadform"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public t1 As Integer

Private Sub Form_Load()
loadform1 = 1
t1 = 0
Image1.Height = 3540
Image1.Width = 5925
End Sub

Private Sub Form_Resize()
loadform.Height = 3540
loadform.Width = 5925
End Sub

Private Sub Image1_Click()
Unload Me
mainmdiform.Show
End Sub

Private Sub Timer1_Timer()
t1 = t1 + 1
If t1 = 1 Then
   Unload Me
   mainmdiform.Show
End If
End Sub