VERSION 5.00
Begin VB.Form frmSplash 
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   5010
   ClientLeft      =   255
   ClientTop       =   1410
   ClientWidth     =   6585
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   Icon            =   "frmSplash.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "frmSplash.frx":08CA
   ScaleHeight     =   5010
   ScaleWidth      =   6585
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame1 
      BackColor       =   &H00C0E0FF&
      BorderStyle     =   0  'None
      Caption         =   "Frame1"
      Height          =   540
      Left            =   5160
      TabIndex        =   1
      Top             =   3600
      Width           =   1332
      Begin VB.Label Label2 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "ver 1.0.5"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   375
         Left            =   0
         TabIndex        =   3
         Top             =   270
         Width           =   1335
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "03/ 05/ 05"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   375
         Left            =   0
         TabIndex        =   2
         Top             =   0
         Width           =   1335
      End
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   5280
      Left            =   0
      Picture         =   "frmSplash.frx":80BD4
      ScaleHeight     =   5250
      ScaleWidth      =   7500
      TabIndex        =   0
      Top             =   0
      Visible         =   0   'False
      Width           =   7530
   End
End
Attribute VB_Name = "frmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Check1_Click()

End Sub

Private Sub Form_Click()

frmSplash.Hide

End Sub

Private Sub Form_Load()



While frmSplash.ScaleHeight < Picture1.Height
frmSplash.Height = frmSplash.Height + 5
Wend

While frmSplash.ScaleWidth < Picture1.Width
frmSplash.Width = frmSplash.Width + 5
Wend



'''''''ASPETTA 3 SECONDI PRIMA DI PROSEGUIRE''''''''''

   t0 = Timer
   nsecond = 1
   
   Do While Timer - t0 < nsecond
     

      dummy = DoEvents()
      
      'if we cross midnight, back up one day
      If Timer < t0 Then
         t0 = t0 - CLng(24) * CLng(60) * CLng(60)
      End If
   Loop


frmSplash.Visible = True
'''''''ASPETTA 3 SECONDI PRIMA DI PROSEGUIRE''''''''''

   t0 = Timer
   nsecond = 4
   
   Do While Timer - t0 < nsecond
     

      dummy = DoEvents()
      
      'if we cross midnight, back up one day
      If Timer < t0 Then
         t0 = t0 - CLng(24) * CLng(60) * CLng(60)
      End If
   Loop




MDIForm1.Visible = True

frmSplash.Hide

End Sub