home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / atileg1a / frmabout.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-29  |  3.1 KB  |  99 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAbout 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "About MyApp"
  5.    ClientHeight    =   2430
  6.    ClientLeft      =   2340
  7.    ClientTop       =   1935
  8.    ClientWidth     =   5730
  9.    ClipControls    =   0   'False
  10.    LinkTopic       =   "Form2"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   1677.229
  14.    ScaleMode       =   0  'User
  15.    ScaleWidth      =   5380.766
  16.    ShowInTaskbar   =   0   'False
  17.    Begin VB.PictureBox picIcon 
  18.       AutoSize        =   -1  'True
  19.       ClipControls    =   0   'False
  20.       Height          =   540
  21.       Left            =   240
  22.       Picture         =   "frmAbout.frx":0000
  23.       ScaleHeight     =   337.12
  24.       ScaleMode       =   0  'User
  25.       ScaleWidth      =   337.12
  26.       TabIndex        =   1
  27.       Top             =   240
  28.       Width           =   540
  29.    End
  30.    Begin VB.CommandButton cmdOK 
  31.       Cancel          =   -1  'True
  32.       Caption         =   "OK"
  33.       Default         =   -1  'True
  34.       Height          =   345
  35.       Left            =   4380
  36.       TabIndex        =   0
  37.       Top             =   2010
  38.       Width           =   1260
  39.    End
  40.    Begin VB.Line Line1 
  41.       BorderColor     =   &H00808080&
  42.       BorderStyle     =   6  'Inside Solid
  43.       Index           =   1
  44.       X1              =   84.515
  45.       X2              =   5309.398
  46.       Y1              =   1325.218
  47.       Y2              =   1325.218
  48.    End
  49.    Begin VB.Label lblDescription 
  50.       Caption         =   "App Description"
  51.       ForeColor       =   &H00000000&
  52.       Height          =   690
  53.       Left            =   1050
  54.       TabIndex        =   2
  55.       Top             =   1125
  56.       Width           =   3885
  57.    End
  58.    Begin VB.Label lblTitle 
  59.       Caption         =   "Application Title"
  60.       ForeColor       =   &H00000000&
  61.       Height          =   480
  62.       Left            =   1050
  63.       TabIndex        =   3
  64.       Top             =   240
  65.       Width           =   3885
  66.    End
  67.    Begin VB.Line Line1 
  68.       BorderColor     =   &H00FFFFFF&
  69.       BorderWidth     =   2
  70.       Index           =   0
  71.       X1              =   140.858
  72.       X2              =   5351.656
  73.       Y1              =   1304.512
  74.       Y2              =   1304.512
  75.    End
  76.    Begin VB.Label lblVersion 
  77.       Caption         =   "Version"
  78.       Height          =   225
  79.       Left            =   1050
  80.       TabIndex        =   4
  81.       Top             =   780
  82.       Width           =   3885
  83.    End
  84. Attribute VB_Name = "frmAbout"
  85. Attribute VB_GlobalNameSpace = False
  86. Attribute VB_Creatable = False
  87. Attribute VB_PredeclaredId = True
  88. Attribute VB_Exposed = False
  89. Option Explicit
  90. Private Sub cmdOK_Click()
  91.   Unload Me
  92. End Sub
  93. Private Sub Form_Load()
  94.     Me.Caption = "About " & App.Title
  95.     lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
  96.     lblTitle.Caption = App.Title
  97.   lblDescription.Caption = "Map creation system created by Steve Mactaggart." & vbCrLf & " email : steve@bud.cc.swin.edu.au"
  98. End Sub
  99.