home *** CD-ROM | disk | FTP | other *** search
/ distrib.akp.su/Programming/Vb-6+Rus/ / distrib.akp.su.tar / distrib.akp.su / Programming / Vb-6+Rus / VB98 / TEMPLATE / FORMS / SPLSSCRN.FRM (.txt) < prev    next >
Visual Basic Form  |  1998-06-18  |  7KB  |  193 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSplash 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    ClientHeight    =   4245
  5.    ClientLeft      =   255
  6.    ClientTop       =   1410
  7.    ClientWidth     =   7380
  8.    ClipControls    =   0   'False
  9.    ControlBox      =   0   'False
  10.    Icon            =   "Splash Screen.frx":0000
  11.    KeyPreview      =   -1  'True
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4245
  16.    ScaleWidth      =   7380
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin VB.Frame Frame1 
  20.       Height          =   4050
  21.       Left            =   150
  22.       TabIndex        =   0
  23.       Top             =   60
  24.       Width           =   7080
  25.       Begin VB.Image imgLogo 
  26.          Height          =   2385
  27.          Left            =   360
  28.          Picture         =   "Splash Screen.frx":000C
  29.          Stretch         =   -1  'True
  30.          Top             =   795
  31.          Width           =   1815
  32.       End
  33.       Begin VB.Label lblCopyright 
  34.          Caption         =   "Copyright"
  35.          BeginProperty Font 
  36.             Name            =   "Arial"
  37.             Size            =   8.25
  38.             Charset         =   0
  39.             Weight          =   400
  40.             Underline       =   0   'False
  41.             Italic          =   0   'False
  42.             Strikethrough   =   0   'False
  43.          EndProperty
  44.          Height          =   255
  45.          Left            =   4560
  46.          TabIndex        =   4
  47.          Top             =   3060
  48.          Width           =   2415
  49.       End
  50.       Begin VB.Label lblCompany 
  51.          Caption         =   "Company"
  52.          BeginProperty Font 
  53.             Name            =   "Arial"
  54.             Size            =   8.25
  55.             Charset         =   0
  56.             Weight          =   400
  57.             Underline       =   0   'False
  58.             Italic          =   0   'False
  59.             Strikethrough   =   0   'False
  60.          EndProperty
  61.          Height          =   255
  62.          Left            =   4560
  63.          TabIndex        =   3
  64.          Top             =   3270
  65.          Width           =   2415
  66.       End
  67.       Begin VB.Label lblWarning 
  68.          Caption         =   "Warning"
  69.          BeginProperty Font 
  70.             Name            =   "Arial"
  71.             Size            =   8.25
  72.             Charset         =   0
  73.             Weight          =   400
  74.             Underline       =   0   'False
  75.             Italic          =   0   'False
  76.             Strikethrough   =   0   'False
  77.          EndProperty
  78.          Height          =   195
  79.          Left            =   150
  80.          TabIndex        =   2
  81.          Top             =   3660
  82.          Width           =   6855
  83.       End
  84.       Begin VB.Label lblVersion 
  85.          Alignment       =   1  'Right Justify
  86.          AutoSize        =   -1  'True
  87.          Caption         =   "Version"
  88.          BeginProperty Font 
  89.             Name            =   "Arial"
  90.             Size            =   12
  91.             Charset         =   0
  92.             Weight          =   700
  93.             Underline       =   0   'False
  94.             Italic          =   0   'False
  95.             Strikethrough   =   0   'False
  96.          EndProperty
  97.          Height          =   285
  98.          Left            =   5970
  99.          TabIndex        =   5
  100.          Top             =   2700
  101.          Width           =   885
  102.       End
  103.       Begin VB.Label lblPlatform 
  104.          Alignment       =   1  'Right Justify
  105.          AutoSize        =   -1  'True
  106.          Caption         =   "Platform"
  107.          BeginProperty Font 
  108.             Name            =   "Arial"
  109.             Size            =   15.75
  110.             Charset         =   0
  111.             Weight          =   700
  112.             Underline       =   0   'False
  113.             Italic          =   0   'False
  114.             Strikethrough   =   0   'False
  115.          EndProperty
  116.          Height          =   360
  117.          Left            =   5580
  118.          TabIndex        =   6
  119.          Top             =   2340
  120.          Width           =   1275
  121.       End
  122.       Begin VB.Label lblProductName 
  123.          AutoSize        =   -1  'True
  124.          Caption         =   "Product"
  125.          BeginProperty Font 
  126.             Name            =   "Arial"
  127.             Size            =   32.25
  128.             Charset         =   0
  129.             Weight          =   700
  130.             Underline       =   0   'False
  131.             Italic          =   0   'False
  132.             Strikethrough   =   0   'False
  133.          EndProperty
  134.          Height          =   765
  135.          Left            =   2520
  136.          TabIndex        =   8
  137.          Top             =   1140
  138.          Width           =   2430
  139.       End
  140.       Begin VB.Label lblLicenseTo 
  141.          Alignment       =   1  'Right Justify
  142.          Caption         =   "LicenseTo"
  143.          BeginProperty Font 
  144.             Name            =   "Arial"
  145.             Size            =   8.25
  146.             Charset         =   0
  147.             Weight          =   400
  148.             Underline       =   0   'False
  149.             Italic          =   0   'False
  150.             Strikethrough   =   0   'False
  151.          EndProperty
  152.          Height          =   255
  153.          Left            =   120
  154.          TabIndex        =   1
  155.          Top             =   240
  156.          Width           =   6855
  157.       End
  158.       Begin VB.Label lblCompanyProduct 
  159.          AutoSize        =   -1  'True
  160.          Caption         =   "CompanyProduct"
  161.          BeginProperty Font 
  162.             Name            =   "Arial"
  163.             Size            =   18
  164.             Charset         =   0
  165.             Weight          =   700
  166.             Underline       =   0   'False
  167.             Italic          =   0   'False
  168.             Strikethrough   =   0   'False
  169.          EndProperty
  170.          Height          =   435
  171.          Left            =   2355
  172.          TabIndex        =   7
  173.          Top             =   705
  174.          Width           =   3000
  175.       End
  176.    End
  177. Attribute VB_Name = "frmSplash"
  178. Attribute VB_GlobalNameSpace = False
  179. Attribute VB_Creatable = False
  180. Attribute VB_PredeclaredId = True
  181. Attribute VB_Exposed = False
  182. Option Explicit
  183. Private Sub Form_KeyPress(KeyAscii As Integer)
  184.     Unload Me
  185. End Sub
  186. Private Sub Form_Load()
  187.     lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
  188.     lblProductName.Caption = App.Title
  189. End Sub
  190. Private Sub Frame1_Click()
  191.     Unload Me
  192. End Sub
  193.