frm_splash.frm

vb+sql2

VERSION 5.00
Begin VB.Form frm_splash 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   7185
   ClientLeft      =   3255
   ClientTop       =   1845
   ClientWidth     =   9585
   Icon            =   "frm_splash.frx":0000
   LinkTopic       =   "Form1"
   Picture         =   "frm_splash.frx":0442
   ScaleHeight     =   7185
   ScaleWidth      =   9585
   ShowInTaskbar   =   0   'False
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   3000
      Left            =   5640
      Top             =   3720
   End
End
Attribute VB_Name = "frm_splash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_KeyPress(KeyAscii As Integer)
        Unload Me
        frm_login.Show
End Sub


Private Sub Form_Click()
        Unload Me
        frm_login.Show
End Sub

Private Sub Form_Load()
        Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
        Unload Me
        frm_login.Show
End Sub