home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD83227292000.psc / About.frm (.txt) next >
Encoding:
Visual Basic Form  |  2000-07-29  |  7.0 KB  |  202 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAbout 
  3.    BackColor       =   &H00FF8080&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    ClientHeight    =   4170
  6.    ClientLeft      =   45
  7.    ClientTop       =   45
  8.    ClientWidth     =   4605
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   4170
  14.    ScaleWidth      =   4605
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  'CenterScreen
  17.    Visible         =   0   'False
  18.    Begin VB.Frame fraMainFrame 
  19.       BackColor       =   &H00FF8080&
  20.       Height          =   4095
  21.       Left            =   120
  22.       TabIndex        =   0
  23.       Top             =   0
  24.       Width           =   4380
  25.       Begin VB.CommandButton cmdOK 
  26.          BackColor       =   &H00FF8080&
  27.          Caption         =   "&OK"
  28.          BeginProperty Font 
  29.             Name            =   "MS Sans Serif"
  30.             Size            =   9.75
  31.             Charset         =   0
  32.             Weight          =   700
  33.             Underline       =   0   'False
  34.             Italic          =   0   'False
  35.             Strikethrough   =   0   'False
  36.          EndProperty
  37.          Height          =   375
  38.          Left            =   1800
  39.          MaskColor       =   &H00FF8080&
  40.          TabIndex        =   8
  41.          Top             =   3480
  42.          Width           =   975
  43.       End
  44.       Begin VB.PictureBox picLogo 
  45.          Appearance      =   0  'Flat
  46.          BackColor       =   &H00FF8080&
  47.          BorderStyle     =   0  'None
  48.          ForeColor       =   &H80000008&
  49.          Height          =   585
  50.          Left            =   360
  51.          Picture         =   "About.frx":0000
  52.          ScaleHeight     =   585
  53.          ScaleWidth      =   615
  54.          TabIndex        =   1
  55.          Top             =   360
  56.          Width           =   615
  57.       End
  58.       Begin VB.Label lblLicenseTo 
  59.          Alignment       =   2  'Center
  60.          BackColor       =   &H00FF8080&
  61.          Caption         =   "This product is FREEWARE !"
  62.          BeginProperty Font 
  63.             Name            =   "MS Sans Serif"
  64.             Size            =   8.25
  65.             Charset         =   0
  66.             Weight          =   700
  67.             Underline       =   0   'False
  68.             Italic          =   0   'False
  69.             Strikethrough   =   0   'False
  70.          EndProperty
  71.          ForeColor       =   &H00C0FFC0&
  72.          Height          =   255
  73.          Left            =   720
  74.          TabIndex        =   9
  75.          Tag             =   "LicenseTo"
  76.          Top             =   1800
  77.          Width           =   3135
  78.       End
  79.       Begin VB.Label lblProductName 
  80.          Alignment       =   2  'Center
  81.          AutoSize        =   -1  'True
  82.          BackColor       =   &H00FF8080&
  83.          Caption         =   "Product"
  84.          BeginProperty Font 
  85.             Name            =   "MS Sans Serif"
  86.             Size            =   24
  87.             Charset         =   0
  88.             Weight          =   700
  89.             Underline       =   0   'False
  90.             Italic          =   0   'False
  91.             Strikethrough   =   0   'False
  92.          EndProperty
  93.          ForeColor       =   &H000000FF&
  94.          Height          =   555
  95.          Left            =   720
  96.          TabIndex        =   7
  97.          Tag             =   "Product"
  98.          Top             =   360
  99.          Width           =   3435
  100.       End
  101.       Begin VB.Label lblCompanyProduct 
  102.          Alignment       =   2  'Center
  103.          AutoSize        =   -1  'True
  104.          BackColor       =   &H00FF8080&
  105.          Caption         =   "MDSoftware"
  106.          BeginProperty Font 
  107.             Name            =   "MS Sans Serif"
  108.             Size            =   18
  109.             Charset         =   0
  110.             Weight          =   700
  111.             Underline       =   0   'False
  112.             Italic          =   0   'False
  113.             Strikethrough   =   0   'False
  114.          EndProperty
  115.          ForeColor       =   &H0080FFFF&
  116.          Height          =   435
  117.          Left            =   720
  118.          TabIndex        =   6
  119.          Tag             =   "CompanyProduct"
  120.          Top             =   1200
  121.          Width           =   3360
  122.       End
  123.       Begin VB.Label lblPlatform 
  124.          Alignment       =   2  'Center
  125.          AutoSize        =   -1  'True
  126.          BackColor       =   &H00FF8080&
  127.          Caption         =   "Win95/98"
  128.          BeginProperty Font 
  129.             Name            =   "MS Sans Serif"
  130.             Size            =   13.5
  131.             Charset         =   0
  132.             Weight          =   700
  133.             Underline       =   0   'False
  134.             Italic          =   0   'False
  135.             Strikethrough   =   0   'False
  136.          EndProperty
  137.          ForeColor       =   &H00404080&
  138.          Height          =   360
  139.          Left            =   1620
  140.          TabIndex        =   5
  141.          Tag             =   "Platform"
  142.          Top             =   2880
  143.          Width           =   1305
  144.       End
  145.       Begin VB.Label lblVersion 
  146.          Alignment       =   2  'Center
  147.          AutoSize        =   -1  'True
  148.          BackColor       =   &H00FF8080&
  149.          Caption         =   "Version"
  150.          BeginProperty Font 
  151.             Name            =   "MS Sans Serif"
  152.             Size            =   12
  153.             Charset         =   0
  154.             Weight          =   700
  155.             Underline       =   0   'False
  156.             Italic          =   0   'False
  157.             Strikethrough   =   0   'False
  158.          EndProperty
  159.          ForeColor       =   &H00800000&
  160.          Height          =   300
  161.          Left            =   1680
  162.          TabIndex        =   4
  163.          Tag             =   "Version"
  164.          Top             =   840
  165.          Width           =   1290
  166.       End
  167.       Begin VB.Label lblCompany 
  168.          Alignment       =   2  'Center
  169.          BackColor       =   &H00FF8080&
  170.          Caption         =   "Michael Sharp"
  171.          Height          =   255
  172.          Left            =   1680
  173.          TabIndex        =   3
  174.          Tag             =   "Company"
  175.          Top             =   2400
  176.          Width           =   1215
  177.       End
  178.       Begin VB.Label lblCopyright 
  179.          Alignment       =   2  'Center
  180.          BackColor       =   &H00FF8080&
  181.          Caption         =   "Copyright: 2000"
  182.          Height          =   255
  183.          Left            =   1680
  184.          TabIndex        =   2
  185.          Tag             =   "Copyright"
  186.          Top             =   2160
  187.          Width           =   1215
  188.       End
  189.    End
  190. Attribute VB_Name = "frmAbout"
  191. Attribute VB_GlobalNameSpace = False
  192. Attribute VB_Creatable = False
  193. Attribute VB_PredeclaredId = True
  194. Attribute VB_Exposed = False
  195. Private Sub cmdOK_Click()
  196. Unload Me
  197. End Sub
  198. Private Sub Form_Load()
  199.     lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
  200.     lblProductName.Caption = App.Title
  201. End Sub
  202.