home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Diablo_2_I1392471012002.psc / frmAbout.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-03-15  |  5.4 KB  |  169 lines
  1. VERSION 5.00
  2. Object = "{BB31661F-0587-11D6-9DD0-00C04F0BD97C}#1.0#0"; "PRJCHAMELEON.OCX"
  3. Begin VB.Form frmAbout 
  4.    BorderStyle     =   0  'None
  5.    ClientHeight    =   5445
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   8805
  9.    ControlBox      =   0   'False
  10.    Icon            =   "frmAbout.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    Picture         =   "frmAbout.frx":000C
  15.    ScaleHeight     =   363
  16.    ScaleMode       =   3  'Pixel
  17.    ScaleWidth      =   587
  18.    ShowInTaskbar   =   0   'False
  19.    StartUpPosition =   2  'CenterScreen
  20.    Begin prjChameleon.chameleonButton cmdOk 
  21.       Height          =   375
  22.       Left            =   3615
  23.       TabIndex        =   4
  24.       Top             =   4680
  25.       Width           =   1575
  26.       _ExtentX        =   2778
  27.       _ExtentY        =   661
  28.       BTYPE           =   3
  29.       TX              =   "Ok"
  30.       ENAB            =   -1  'True
  31.       BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  32.          Name            =   "MS Sans Serif"
  33.          Size            =   8.25
  34.          Charset         =   0
  35.          Weight          =   400
  36.          Underline       =   0   'False
  37.          Italic          =   0   'False
  38.          Strikethrough   =   0   'False
  39.       EndProperty
  40.       COLTYPE         =   3
  41.       FOCUSR          =   -1  'True
  42.       BCOL            =   13160664
  43.       FCOL            =   0
  44.       FCOLO           =   0
  45.       MPTR            =   0
  46.       MICON           =   "frmAbout.frx":28A2
  47.    End
  48.    Begin VB.Label Label3 
  49.       AutoSize        =   -1  'True
  50.       BackStyle       =   0  'Transparent
  51.       Caption         =   "Thanks"
  52.       BeginProperty Font 
  53.          Name            =   "Arial"
  54.          Size            =   12
  55.          Charset         =   0
  56.          Weight          =   700
  57.          Underline       =   0   'False
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       ForeColor       =   &H00FFFFFF&
  62.       Height          =   285
  63.       Left            =   6600
  64.       TabIndex        =   5
  65.       Top             =   720
  66.       Width           =   855
  67.    End
  68.    Begin VB.Label Label6 
  69.       AutoSize        =   -1  'True
  70.       BackStyle       =   0  'Transparent
  71.       Caption         =   "Beta Tester - Jeff Deaton"
  72.       BeginProperty Font 
  73.          Name            =   "Arial"
  74.          Size            =   12
  75.          Charset         =   0
  76.          Weight          =   700
  77.          Underline       =   0   'False
  78.          Italic          =   0   'False
  79.          Strikethrough   =   0   'False
  80.       EndProperty
  81.       ForeColor       =   &H00FFFFFF&
  82.       Height          =   285
  83.       Left            =   5640
  84.       TabIndex        =   3
  85.       Top             =   480
  86.       Width           =   2805
  87.    End
  88.    Begin VB.Label Label5 
  89.       AutoSize        =   -1  'True
  90.       BackStyle       =   0  'Transparent
  91.       Caption         =   "(C)2002 James E. Dougherty"
  92.       BeginProperty Font 
  93.          Name            =   "Arial"
  94.          Size            =   12
  95.          Charset         =   0
  96.          Weight          =   700
  97.          Underline       =   0   'False
  98.          Italic          =   0   'False
  99.          Strikethrough   =   0   'False
  100.       EndProperty
  101.       ForeColor       =   &H00FFFFFF&
  102.       Height          =   285
  103.       Left            =   270
  104.       TabIndex        =   2
  105.       Top             =   4800
  106.       Width           =   3240
  107.    End
  108.    Begin VB.Label Label1 
  109.       AutoSize        =   -1  'True
  110.       BackStyle       =   0  'Transparent
  111.       Caption         =   "Diablo 2"
  112.       BeginProperty Font 
  113.          Name            =   "Arial"
  114.          Size            =   48
  115.          Charset         =   0
  116.          Weight          =   700
  117.          Underline       =   0   'False
  118.          Italic          =   0   'False
  119.          Strikethrough   =   0   'False
  120.       EndProperty
  121.       Height          =   1125
  122.       Left            =   270
  123.       TabIndex        =   1
  124.       Top             =   240
  125.       Width           =   3750
  126.    End
  127.    Begin VB.Label Label2 
  128.       AutoSize        =   -1  'True
  129.       BackStyle       =   0  'Transparent
  130.       Caption         =   "Item Database"
  131.       BeginProperty Font 
  132.          Name            =   "Arial"
  133.          Size            =   27.75
  134.          Charset         =   0
  135.          Weight          =   700
  136.          Underline       =   0   'False
  137.          Italic          =   0   'False
  138.          Strikethrough   =   0   'False
  139.       EndProperty
  140.       Height          =   660
  141.       Left            =   270
  142.       TabIndex        =   0
  143.       Top             =   1200
  144.       Width           =   3780
  145.    End
  146.    Begin VB.Image Image1 
  147.       Height          =   4710
  148.       Left            =   270
  149.       Picture         =   "frmAbout.frx":28BE
  150.       Stretch         =   -1  'True
  151.       Top             =   390
  152.       Width           =   8280
  153.    End
  154. Attribute VB_Name = "frmAbout"
  155. Attribute VB_GlobalNameSpace = False
  156. Attribute VB_Creatable = False
  157. Attribute VB_PredeclaredId = True
  158. Attribute VB_Exposed = False
  159. Option Explicit
  160. Private Sub cmdOk_Click()
  161. Unload Me
  162. End Sub
  163. Private Sub Form_Load()
  164. FloatWindow frmAbout.hWnd, Float
  165. End Sub
  166. Private Sub Form_Unload(Cancel As Integer)
  167. FloatWindow frmAbout.hWnd, SINK
  168. End Sub
  169.