Zip File view

VERSION 4.00
Begin VB.Form frmAbout
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "About 'MC SECURITY (16-Bit)'"
   ClientHeight    =   1815
   ClientLeft      =   945
   ClientTop       =   1410
   ClientWidth     =   5625
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   Height          =   2160
   Left            =   915
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   1815
   ScaleWidth      =   5625
   ShowInTaskbar   =   0   'False
   Top             =   1095
   Width           =   5685
   Begin VB.CommandButton Command1
      Caption         =   "&OK"
      Height          =   375
      Left            =   4950
      TabIndex        =   2
      Top             =   1170
      Width           =   555
   End
   Begin VB.PictureBox Picture1
      AutoSize        =   -1  'True
      Height          =   510
      Left            =   4950
      Picture         =   "_ABOUT.frx":0000
      ScaleHeight     =   480
      ScaleWidth      =   480
      TabIndex        =   0
      TabStop         =   0   'False
      Top             =   90
      Width           =   510
   End
   Begin VB.Label Label1
      Alignment       =   2  'Center
      Caption         =   "Label1"
      Height          =   1545
      Left            =   90
      TabIndex        =   1
      Top             =   180
      Width           =   4695
   End
End
Attribute VB_Name = "frmAbout"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
   Unload Me
End Sub

Private Sub Form_Load()
   Label1.Caption = "MC SECURITY version " & Format$(cGetVersion(), "Fixed") & vbCr & vbCr
   Label1.Caption = Label1.Caption & "Please register thru CompuServe" & vbCr & vbCr
   Label1.Caption = Label1.Caption & "SWREG ID #8536" & vbCr & vbCr
   Label1.Caption = Label1.Caption & "The price for 'MC SECURITY (16/32 Bit)' is $10.00"
End Sub