home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / excell1a / frmsplas.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-10-07  |  4.0 KB  |  133 lines
  1. VERSION 5.00
  2. Object = "{54E91B3E-3171-11D3-977A-96567B857403}#2.0#0"; "AMCLABEL.OCX"
  3. Begin VB.Form frmSplash 
  4.    BackColor       =   &H00000000&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    ClientHeight    =   4245
  7.    ClientLeft      =   255
  8.    ClientTop       =   1410
  9.    ClientWidth     =   7380
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    Icon            =   "frmSplash.frx":0000
  13.    KeyPreview      =   -1  'True
  14.    LinkTopic       =   "Form2"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   4245
  18.    ScaleWidth      =   7380
  19.    ShowInTaskbar   =   0   'False
  20.    StartUpPosition =   2  'CenterScreen
  21.    Begin PAMCLabel.AMCLabel AMCLabel1 
  22.       Height          =   1035
  23.       Left            =   840
  24.       Top             =   1680
  25.       Width           =   5655
  26.       _ExtentX        =   9975
  27.       _ExtentY        =   1826
  28.       Caption         =   "HangMan V1.0.0"
  29.       BorderStyle     =   4
  30.       CaptionAlign    =   1
  31.       CaptionShadowStyle=   1
  32.       CaptionShadowColor=   8421504
  33.       CaptionBehaviour=   1
  34.       CaptionHighLightColor=   16777215
  35.       CaptionMouseOverColor=   16776960
  36.       OutLine         =   -1  'True
  37.       ForeColor       =   33023
  38.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  39.          Name            =   "Arial"
  40.          Size            =   36
  41.          Charset         =   0
  42.          Weight          =   400
  43.          Underline       =   0   'False
  44.          Italic          =   0   'False
  45.          Strikethrough   =   0   'False
  46.       EndProperty
  47.    End
  48.    Begin VB.Label Label4 
  49.       BackStyle       =   0  'Transparent
  50.       Caption         =   $"frmSplash.frx":000C
  51.       Height          =   495
  52.       Left            =   840
  53.       TabIndex        =   3
  54.       Top             =   2880
  55.       Width           =   5655
  56.    End
  57.    Begin VB.Label Label3 
  58.       AutoSize        =   -1  'True
  59.       BackStyle       =   0  'Transparent
  60.       Caption         =   "TonysComp@Europe.com"
  61.       BeginProperty Font 
  62.          Name            =   "MS Sans Serif"
  63.          Size            =   8.25
  64.          Charset         =   0
  65.          Weight          =   700
  66.          Underline       =   -1  'True
  67.          Italic          =   0   'False
  68.          Strikethrough   =   0   'False
  69.       EndProperty
  70.       ForeColor       =   &H00FF0000&
  71.       Height          =   195
  72.       Left            =   2880
  73.       MouseIcon       =   "frmSplash.frx":009C
  74.       MousePointer    =   99  'Custom
  75.       TabIndex        =   2
  76.       Top             =   3480
  77.       Width           =   2175
  78.    End
  79.    Begin VB.Label Label2 
  80.       AutoSize        =   -1  'True
  81.       BackStyle       =   0  'Transparent
  82.       Caption         =   "Email:"
  83.       Height          =   195
  84.       Left            =   2400
  85.       TabIndex        =   1
  86.       Top             =   3480
  87.       Width           =   420
  88.    End
  89.    Begin VB.Image Image1 
  90.       Height          =   1050
  91.       Left            =   1200
  92.       Picture         =   "frmSplash.frx":04DE
  93.       Top             =   240
  94.       Width           =   4815
  95.    End
  96.    Begin VB.Label Label1 
  97.       BackColor       =   &H00FFFFFF&
  98.       BorderStyle     =   1  'Fixed Single
  99.       Height          =   3975
  100.       Left            =   120
  101.       TabIndex        =   0
  102.       Top             =   120
  103.       Width           =   7095
  104.    End
  105. Attribute VB_Name = "frmSplash"
  106. Attribute VB_GlobalNameSpace = False
  107. Attribute VB_Creatable = False
  108. Attribute VB_PredeclaredId = True
  109. Attribute VB_Exposed = False
  110. Option Explicit
  111. Private Sub AMCLabel1_Click()
  112.     End
  113. End Sub
  114. Private Sub Form_KeyPress(KeyAscii As Integer)
  115.     Form1.Enabled = True
  116.     End
  117. End Sub
  118. Private Sub Form_Load()
  119.     Form1.Enabled = False
  120. End Sub
  121. Private Sub Frame1_Click()
  122.     Unload Me
  123. End Sub
  124. Private Sub lblLicenseTo_Click()
  125. End Sub
  126. Private Sub Label1_Click()
  127.     End
  128. End Sub
  129. Private Sub Label3_Click()
  130. Shell "start mailto:someaddy@whatever.com", vbHide
  131. 'SendMail(Recipiants, Subject, Message)
  132. End Sub
  133.