home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / IP2Country2042661152007.psc / IP2Country / frmSplash.frm < prev    next >
Text File  |  2007-01-15  |  2KB  |  58 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSplash 
  3.    BackColor       =   &H80000005&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    ClientHeight    =   3450
  6.    ClientLeft      =   255
  7.    ClientTop       =   1410
  8.    ClientWidth     =   5895
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Icon            =   "frmSplash.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form2"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   3450
  17.    ScaleWidth      =   5895
  18.    ShowInTaskbar   =   0   'False
  19.    StartUpPosition =   2  'CenterScreen
  20.    Begin VB.Image Image1 
  21.       Height          =   2925
  22.       Left            =   55
  23.       Picture         =   "frmSplash.frx":000C
  24.       Top             =   40
  25.       Width           =   5760
  26.    End
  27.    Begin VB.Label Label1 
  28.       Alignment       =   2  'Center
  29.       BackStyle       =   0  'Transparent
  30.       Caption         =   "Loading IP list..."
  31.       BeginProperty Font 
  32.          Name            =   "MS Sans Serif"
  33.          Size            =   8.25
  34.          Charset         =   0
  35.          Weight          =   700
  36.          Underline       =   0   'False
  37.          Italic          =   0   'False
  38.          Strikethrough   =   0   'False
  39.       EndProperty
  40.       Height          =   255
  41.       Left            =   240
  42.       TabIndex        =   0
  43.       Top             =   3120
  44.       Width           =   5535
  45.    End
  46. End
  47. Attribute VB_Name = "frmSplash"
  48. Attribute VB_GlobalNameSpace = False
  49. Attribute VB_Creatable = False
  50. Attribute VB_PredeclaredId = True
  51. Attribute VB_Exposed = False
  52. Option Explicit
  53.  
  54. 'If somehow this form does not unload, it can be done manually by double-clicking on the image
  55. Private Sub Image1_DblClick()
  56.   Unload Me
  57. End Sub
  58.