home *** CD-ROM | disk | FTP | other *** search
/ ActiveX Programming Unleashed CD / AXU.iso / activex / demos / oletrial / samples / vb / mhinvi / abtinvi.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-11-30  |  5.9 KB  |  180 lines
  1. VERSION 4.00
  2. Begin VB.Form frmAbout 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "About"
  5.    ClientHeight    =   2520
  6.    ClientLeft      =   3012
  7.    ClientTop       =   2772
  8.    ClientWidth     =   4560
  9.    BeginProperty Font 
  10.       name            =   "MS Sans Serif"
  11.       charset         =   0
  12.       weight          =   700
  13.       size            =   7.8
  14.       underline       =   0   'False
  15.       italic          =   0   'False
  16.       strikethrough   =   0   'False
  17.    EndProperty
  18.    ForeColor       =   &H80000008&
  19.    Height          =   2904
  20.    Icon            =   "Abtinvi.frx":0000
  21.    KeyPreview      =   -1  'True
  22.    Left            =   2964
  23.    LinkTopic       =   "Form1"
  24.    LockControls    =   -1  'True
  25.    ScaleHeight     =   2520
  26.    ScaleWidth      =   4560
  27.    Top             =   2436
  28.    Width           =   4656
  29.    Begin Mh3dlblLib.Mh3dLabel Mh3dLabelBackGround 
  30.       Height          =   2412
  31.       Left            =   0
  32.       TabIndex        =   0
  33.       Top             =   0
  34.       Width           =   4452
  35.       _Version        =   65536
  36.       _ExtentX        =   7853
  37.       _ExtentY        =   4255
  38.       _StockProps     =   77
  39.       BackColor       =   -2147483643
  40.       TintColor       =   16711935
  41.       Caption         =   ""
  42.       AutoSize        =   -1  'True
  43.       BevelSize       =   2
  44.       BevelStyle      =   1
  45.       BorderStyle     =   0
  46.       Picture         =   "Abtinvi.frx":0442
  47.       Begin Mh3dlblLib.Mh3dLabel Mh3dLabel1 
  48.          Height          =   528
  49.          Index           =   1
  50.          Left            =   108
  51.          TabIndex        =   1
  52.          Top             =   1140
  53.          Width           =   4212
  54.          _Version        =   65536
  55.          _ExtentX        =   7430
  56.          _ExtentY        =   931
  57.          _StockProps     =   77
  58.          BackColor       =   -2147483643
  59.          TintColor       =   16711935
  60.          Caption         =   "For information on our other Cool Tools give our pre-sales technicians a call at:"
  61.          AutoSize        =   -1  'True
  62.          BorderStyle     =   0
  63.          Picture         =   "Abtinvi.frx":045E
  64.          Multiline       =   -1  'True
  65.       End
  66.       Begin Mh3dlblLib.Mh3dLabel Mh3dLabel2 
  67.          Height          =   252
  68.          Index           =   3
  69.          Left            =   108
  70.          TabIndex        =   2
  71.          Top             =   2076
  72.          Width           =   4212
  73.          _Version        =   65536
  74.          _ExtentX        =   7430
  75.          _ExtentY        =   445
  76.          _StockProps     =   77
  77.          BackColor       =   -2147483643
  78.          TintColor       =   16711935
  79.          Caption         =   "By Hassan Davis"
  80.          AutoSize        =   -1  'True
  81.          BorderStyle     =   0
  82.          FontStyle       =   3
  83.          Picture         =   "Abtinvi.frx":047A
  84.       End
  85.       Begin Mh3dlblLib.Mh3dLabel Mh3dLabel3 
  86.          Height          =   792
  87.          Index           =   0
  88.          Left            =   108
  89.          TabIndex        =   3
  90.          Top             =   108
  91.          Width           =   4212
  92.          _Version        =   65536
  93.          _ExtentX        =   7430
  94.          _ExtentY        =   1397
  95.          _StockProps     =   77
  96.          BackColor       =   -2147483643
  97.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  98.             name            =   "MS Sans Serif"
  99.             charset         =   0
  100.             weight          =   700
  101.             size            =   13.8
  102.             underline       =   0   'False
  103.             italic          =   0   'False
  104.             strikethrough   =   0   'False
  105.          EndProperty
  106.          TintColor       =   16711935
  107.          Caption         =   "MicroHelp MhInvisible Example"
  108.          AutoSize        =   -1  'True
  109.          BevelSize       =   2
  110.          BevelStyle      =   1
  111.          BorderStyle     =   0
  112.          FontStyle       =   1
  113.          Picture         =   "Abtinvi.frx":0496
  114.          Multiline       =   -1  'True
  115.       End
  116.       Begin Mh3dlblLib.Mh3dLabel Mh3dLabelDescription 
  117.          Height          =   252
  118.          Index           =   2
  119.          Left            =   168
  120.          TabIndex        =   4
  121.          Top             =   1680
  122.          Width           =   4092
  123.          _Version        =   65536
  124.          _ExtentX        =   7218
  125.          _ExtentY        =   445
  126.          _StockProps     =   77
  127.          BackColor       =   -2147483643
  128.          TintColor       =   16711935
  129.          Caption         =   "1-800-922-3383"
  130.          AutoSize        =   -1  'True
  131.          BorderStyle     =   0
  132.          Picture         =   "Abtinvi.frx":04B2
  133.       End
  134.    End
  135. Attribute VB_Name = "frmAbout"
  136. Attribute VB_Creatable = False
  137. Attribute VB_Exposed = False
  138. Option Explicit ' always!
  139. Private Sub Form_Click()
  140.     ' close the about box
  141.     Unload Me
  142. End Sub
  143. Private Sub Form_KeyPress(KeyAscii As Integer)
  144.     ' close the about box
  145.     Unload Me
  146. End Sub
  147. Private Sub Form_Load()
  148.     Screen.MousePointer = vbHourglass
  149.     ' size form to background label size
  150.     Height = Mh3dLabelBackGround.Height
  151.     Width = Mh3dLabelBackGround.Width
  152.     ' center the form to the screen
  153.     Move Abs(Screen.Width - Width) \ 2, Abs(Screen.Height - Height) \ 2
  154.     Screen.MousePointer = vbDefault
  155. End Sub
  156. Private Sub Form_LostFocus()
  157.     ' close the about box
  158.     Unload Me
  159. End Sub
  160. Private Sub Mh3dLabel1_Click(Index As Integer)
  161.     ' close the about box
  162.     Unload Me
  163. End Sub
  164. Private Sub Mh3dLabel2_Click(Index As Integer)
  165.     ' close the about box
  166.     Unload Me
  167. End Sub
  168. Private Sub Mh3dLabel3_Click(Index As Integer)
  169.     ' close the about box
  170.     Unload Me
  171. End Sub
  172. Private Sub Mh3dLabelBackGround_Click()
  173.     ' close the about box
  174.     Unload Me
  175. End Sub
  176. Private Sub Mh3dLabelDescription_Click(Index As Integer)
  177.     ' close the about box
  178.     Unload Me
  179. End Sub
  180.