home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Hyperwrite2080808262007.psc / hyperwrite_src / frmAbout.frm next >
Text File  |  2007-08-24  |  5KB  |  146 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAbout 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "About NIXON Hyperwrite"
  6.    ClientHeight    =   4950
  7.    ClientLeft      =   3120
  8.    ClientTop       =   2685
  9.    ClientWidth     =   5700
  10.    ClipControls    =   0   'False
  11.    Icon            =   "frmAbout.frx":0000
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    Picture         =   "frmAbout.frx":2CFA
  16.    ScaleHeight     =   3416.579
  17.    ScaleMode       =   0  'User
  18.    ScaleWidth      =   5352.597
  19.    ShowInTaskbar   =   0   'False
  20.    Begin VB.Label lblName 
  21.       Alignment       =   2  'Center
  22.       BackColor       =   &H00FFFFFF&
  23.       Caption         =   "NIXON Hyperwrite 2.0"
  24.       BeginProperty Font 
  25.          Name            =   "Tahoma"
  26.          Size            =   8.25
  27.          Charset         =   0
  28.          Weight          =   700
  29.          Underline       =   0   'False
  30.          Italic          =   0   'False
  31.          Strikethrough   =   0   'False
  32.       EndProperty
  33.       ForeColor       =   &H00000000&
  34.       Height          =   225
  35.       Left            =   615
  36.       TabIndex        =   3
  37.       Top             =   2055
  38.       Width           =   4470
  39.    End
  40.    Begin VB.Image imgHW2 
  41.       Height          =   630
  42.       Left            =   2025
  43.       Picture         =   "frmAbout.frx":49EC
  44.       Top             =   675
  45.       Width           =   3165
  46.    End
  47.    Begin VB.Image imgLogo 
  48.       Height          =   1680
  49.       Left            =   315
  50.       Picture         =   "frmAbout.frx":B288
  51.       Top             =   150
  52.       Width           =   1485
  53.    End
  54.    Begin VB.Label lblWebsite 
  55.       Alignment       =   2  'Center
  56.       BackColor       =   &H00FFFFFF&
  57.       Caption         =   "Visit us online at members.shaw.ca/nixon.com"
  58.       BeginProperty Font 
  59.          Name            =   "Tahoma"
  60.          Size            =   8.25
  61.          Charset         =   0
  62.          Weight          =   400
  63.          Underline       =   0   'False
  64.          Italic          =   0   'False
  65.          Strikethrough   =   0   'False
  66.       EndProperty
  67.       ForeColor       =   &H00000000&
  68.       Height          =   270
  69.       Left            =   645
  70.       TabIndex        =   2
  71.       Top             =   3660
  72.       Width           =   4395
  73.    End
  74.    Begin VB.Image imgNixonLogo 
  75.       Height          =   510
  76.       Left            =   2100
  77.       Picture         =   "frmAbout.frx":1360C
  78.       Top             =   4140
  79.       Width           =   1500
  80.    End
  81.    Begin VB.Label lblCopyright 
  82.       Alignment       =   2  'Center
  83.       BackColor       =   &H00FFFFFF&
  84.       Caption         =   "Copyright ⌐ 2004-2007 NIXON Software Corporation."
  85.       BeginProperty Font 
  86.          Name            =   "Tahoma"
  87.          Size            =   8.25
  88.          Charset         =   0
  89.          Weight          =   400
  90.          Underline       =   0   'False
  91.          Italic          =   0   'False
  92.          Strikethrough   =   0   'False
  93.       EndProperty
  94.       Height          =   960
  95.       Left            =   630
  96.       TabIndex        =   1
  97.       Top             =   2625
  98.       Width           =   4425
  99.    End
  100.    Begin VB.Label lblVersion 
  101.       Alignment       =   2  'Center
  102.       BackColor       =   &H00FFFFFF&
  103.       Caption         =   "Version"
  104.       BeginProperty Font 
  105.          Name            =   "Tahoma"
  106.          Size            =   8.25
  107.          Charset         =   0
  108.          Weight          =   400
  109.          Underline       =   0   'False
  110.          Italic          =   0   'False
  111.          Strikethrough   =   0   'False
  112.       EndProperty
  113.       Height          =   225
  114.       Left            =   615
  115.       TabIndex        =   0
  116.       Top             =   2340
  117.       Width           =   4455
  118.    End
  119. End
  120. Attribute VB_Name = "frmAbout"
  121. Attribute VB_GlobalNameSpace = False
  122. Attribute VB_Creatable = False
  123. Attribute VB_PredeclaredId = True
  124. Attribute VB_Exposed = False
  125.         '- - - - - - - - - - - - - - - - - - - - - - - - - - - - '
  126.         ' Hyperwrite from NIXON                                  '
  127.         ' Copyright (C) 2004-2007 NIXON Software Corporation.    '
  128.         '- - - - - - - - - - - - - - - - - - - - - - - - - - - - '
  129.         ' You may use this code freely in your own applications. '
  130.         ' If you are distributing your code/application(s), it   '
  131.         ' would be greatly appreciated if you credit NIXON in    '
  132.         ' your About dialog. Please note that portions of this   '
  133.         ' code belongs to other people. For more details, please '
  134.         ' view the About dialog.                                 '
  135.         '- - - - - - - - - - - - - - - - - - - - - - - - - - - - '
  136. Option Explicit
  137.  
  138. Private Sub Form_Load()
  139.     Me.Caption = "About " & App.Title
  140.     lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
  141.     lblCopyright.Caption = "Copyright ⌐ 2004-2007 NIXON Software Corporation." & _
  142.         vbNewLine & "Portions ⌐ 2006 York Technologies Ltd." & vbNewLine & _
  143.                     "Portions ⌐ 1985-1996 Microsoft Corporation." & vbNewLine & _
  144.                     "Portions ⌐ 2000 Seagate Software, Inc."
  145. End Sub
  146.