home *** CD-ROM | disk | FTP | other *** search
/ ActiveX Programming Unleashed CD / AXU.iso / activex / demos / oletrial / samples / vb / mhlist / abtlist.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-12-01  |  5.4 KB  |  168 lines
  1. VERSION 4.00
  2. Begin VB.Form frmAbout 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "About"
  5.    ClientHeight    =   2640
  6.    ClientLeft      =   2025
  7.    ClientTop       =   2310
  8.    ClientWidth     =   4680
  9.    BeginProperty Font 
  10.       name            =   "MS Sans Serif"
  11.       charset         =   0
  12.       weight          =   700
  13.       size            =   8.25
  14.       underline       =   0   'False
  15.       italic          =   0   'False
  16.       strikethrough   =   0   'False
  17.    EndProperty
  18.    ForeColor       =   &H80000008&
  19.    Height          =   3045
  20.    KeyPreview      =   -1  'True
  21.    Left            =   1965
  22.    LinkTopic       =   "Form1"
  23.    LockControls    =   -1  'True
  24.    ScaleHeight     =   2640
  25.    ScaleWidth      =   4680
  26.    Top             =   1965
  27.    Width           =   4800
  28.    Begin Threed.SSPanel panBackground 
  29.       Height          =   2460
  30.       Left            =   0
  31.       TabIndex        =   0
  32.       Top             =   0
  33.       Width           =   4488
  34.       _Version        =   65536
  35.       _ExtentX        =   7916
  36.       _ExtentY        =   4339
  37.       _StockProps     =   15
  38.       Caption         =   "SSPanel1"
  39.       BevelWidth      =   3
  40.       Outline         =   -1  'True
  41.       Begin Threed.SSPanel panDescription 
  42.          Height          =   795
  43.          Left            =   150
  44.          TabIndex        =   1
  45.          Top             =   150
  46.          Width           =   4215
  47.          _Version        =   65536
  48.          _ExtentX        =   7430
  49.          _ExtentY        =   1397
  50.          _StockProps     =   15
  51.          Caption         =   "MicroHelp Mh3dList Example"
  52.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  53.             name            =   "MS Sans Serif"
  54.             charset         =   0
  55.             weight          =   700
  56.             size            =   13.5
  57.             underline       =   0   'False
  58.             italic          =   0   'False
  59.             strikethrough   =   0   'False
  60.          EndProperty
  61.          BevelWidth      =   2
  62.          Font3D          =   2
  63.       End
  64.       Begin Threed.SSPanel lblName 
  65.          Height          =   255
  66.          Left            =   150
  67.          TabIndex        =   2
  68.          Top             =   2130
  69.          Width           =   4215
  70.          _Version        =   65536
  71.          _ExtentX        =   7430
  72.          _ExtentY        =   445
  73.          _StockProps     =   15
  74.          Caption         =   "By Hassan Davis"
  75.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  76.             name            =   "MS Sans Serif"
  77.             charset         =   0
  78.             weight          =   400
  79.             size            =   8.25
  80.             underline       =   0   'False
  81.             italic          =   0   'False
  82.             strikethrough   =   0   'False
  83.          EndProperty
  84.          BevelWidth      =   0
  85.          Font3D          =   3
  86.          Alignment       =   8
  87.       End
  88.       Begin VB.Label lblPhoneNumber 
  89.          Alignment       =   2  'Center
  90.          Caption         =   "1-800-922-3383"
  91.          BeginProperty Font 
  92.             name            =   "MS Sans Serif"
  93.             charset         =   0
  94.             weight          =   400
  95.             size            =   9.75
  96.             underline       =   0   'False
  97.             italic          =   0   'False
  98.             strikethrough   =   0   'False
  99.          EndProperty
  100.          Height          =   252
  101.          Left            =   216
  102.          TabIndex        =   4
  103.          Top             =   1692
  104.          Width           =   4092
  105.       End
  106.       Begin VB.Label lblDescription 
  107.          Alignment       =   2  'Center
  108.          Caption         =   "For information on our other Cool Tools give our pre-sales technicians a call at:"
  109.          BeginProperty Font 
  110.             name            =   "MS Sans Serif"
  111.             charset         =   0
  112.             weight          =   400
  113.             size            =   9.75
  114.             underline       =   0   'False
  115.             italic          =   0   'False
  116.             strikethrough   =   0   'False
  117.          EndProperty
  118.          Height          =   480
  119.          Left            =   144
  120.          TabIndex        =   3
  121.          Top             =   1152
  122.          Width           =   4212
  123.       End
  124.    End
  125. Attribute VB_Name = "frmAbout"
  126. Attribute VB_Creatable = False
  127. Attribute VB_Exposed = False
  128. Option Explicit ' always
  129. Private Sub Form_Click()
  130.     ' unload the about box
  131.     Unload Me
  132. End Sub
  133. Private Sub Form_KeyPress(KeyAscii As Integer)
  134.     ' unload the about box
  135.     Unload Me
  136. End Sub
  137. Private Sub Form_Load()
  138.     ' resize the form to the background panel's size
  139.     Width = panBackGround.Width
  140.     Height = panBackGround.Height
  141.     ' center the form to the screen
  142.     Move Abs(Screen.Width - Width) \ 2, Abs(Screen.Height - Height) \ 2
  143. End Sub
  144. Private Sub Form_LostFocus()
  145.     ' close the about box
  146.     Unload Me
  147. End Sub
  148. Private Sub lblDescription_Click()
  149.     ' close the about box
  150.     Unload Me
  151. End Sub
  152. Private Sub lblName_Click()
  153.     ' close the about box
  154.     Unload Me
  155. End Sub
  156. Private Sub lblPhoneNumber_Click()
  157.     ' close the about box
  158.     Unload Me
  159. End Sub
  160. Private Sub panBackground_Click()
  161.     ' close the about box
  162.     Unload Me
  163. End Sub
  164. Private Sub panDescription_Click()
  165.     ' close the about box
  166.     Unload Me
  167. End Sub
  168.