home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Small_Data2209878222011.psc / About.frm < prev    next >
Text File  |  2011-07-29  |  5KB  |  180 lines
  1. VERSION 5.00
  2. Begin VB.Form About 
  3.    BackColor       =   &H00C0FFFF&
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    ClientHeight    =   3090
  6.    ClientLeft      =   15
  7.    ClientTop       =   15
  8.    ClientWidth     =   4680
  9.    ControlBox      =   0   'False
  10.    BeginProperty Font 
  11.       Name            =   "Tahoma"
  12.       Size            =   8.25
  13.       Charset         =   0
  14.       Weight          =   400
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    Icon            =   "About.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    LockControls    =   -1  'True
  22.    MaxButton       =   0   'False
  23.    MinButton       =   0   'False
  24.    ScaleHeight     =   3090
  25.    ScaleWidth      =   4680
  26.    ShowInTaskbar   =   0   'False
  27.    Begin VB.PictureBox Picture1 
  28.       Appearance      =   0  'Flat
  29.       AutoSize        =   -1  'True
  30.       BackColor       =   &H80000005&
  31.       BorderStyle     =   0  'None
  32.       ForeColor       =   &H80000008&
  33.       Height          =   480
  34.       Left            =   4020
  35.       Picture         =   "About.frx":08CA
  36.       ScaleHeight     =   480
  37.       ScaleWidth      =   480
  38.       TabIndex        =   5
  39.       Top             =   2160
  40.       Width           =   480
  41.    End
  42.    Begin VB.Label Label5 
  43.       BackColor       =   &H00C0FFFF&
  44.       Caption         =   "close"
  45.       BeginProperty Font 
  46.          Name            =   "Arial"
  47.          Size            =   8.25
  48.          Charset         =   0
  49.          Weight          =   700
  50.          Underline       =   0   'False
  51.          Italic          =   0   'False
  52.          Strikethrough   =   0   'False
  53.       EndProperty
  54.       ForeColor       =   &H00404040&
  55.       Height          =   195
  56.       Left            =   4160
  57.       TabIndex        =   6
  58.       Top             =   2850
  59.       Width           =   460
  60.    End
  61.    Begin VB.Label lblVersion 
  62.       BackColor       =   &H00C0FFFF&
  63.       BeginProperty Font 
  64.          Name            =   "Tahoma"
  65.          Size            =   9.75
  66.          Charset         =   0
  67.          Weight          =   700
  68.          Underline       =   0   'False
  69.          Italic          =   0   'False
  70.          Strikethrough   =   0   'False
  71.       EndProperty
  72.       ForeColor       =   &H00800000&
  73.       Height          =   195
  74.       Left            =   300
  75.       TabIndex        =   4
  76.       Top             =   2400
  77.       Width           =   4155
  78.    End
  79.    Begin VB.Label Label4 
  80.       BackColor       =   &H00C0FFFF&
  81.       Caption         =   "Copyright 2011 by S.W. Rasmussen. All rights reserved."
  82.       BeginProperty Font 
  83.          Name            =   "Tahoma"
  84.          Size            =   6.75
  85.          Charset         =   0
  86.          Weight          =   400
  87.          Underline       =   0   'False
  88.          Italic          =   0   'False
  89.          Strikethrough   =   0   'False
  90.       EndProperty
  91.       Height          =   195
  92.       Left            =   60
  93.       TabIndex        =   3
  94.       Top             =   2880
  95.       Width           =   4575
  96.    End
  97.    Begin VB.Label Label3 
  98.       BackColor       =   &H00C0FFFF&
  99.       Caption         =   "Use it to keep track of your friends and relatives - and to easily retrieve personal information about them."
  100.       Height          =   555
  101.       Left            =   300
  102.       TabIndex        =   2
  103.       Top             =   1380
  104.       Width           =   3600
  105.    End
  106.    Begin VB.Label lblAboutTitle 
  107.       BackColor       =   &H00C0FFFF&
  108.       Caption         =   "Small Database Utility"
  109.       BeginProperty Font 
  110.          Name            =   "Arial"
  111.          Size            =   18
  112.          Charset         =   0
  113.          Weight          =   700
  114.          Underline       =   0   'False
  115.          Italic          =   0   'False
  116.          Strikethrough   =   0   'False
  117.       EndProperty
  118.       ForeColor       =   &H000000C0&
  119.       Height          =   450
  120.       Index           =   1
  121.       Left            =   300
  122.       TabIndex        =   1
  123.       Top             =   120
  124.       Width           =   4155
  125.    End
  126.    Begin VB.Label lblAboutTitle 
  127.       BackColor       =   &H00C0FFFF&
  128.       Caption         =   "fully configurable..."
  129.       BeginProperty Font 
  130.          Name            =   "Tahoma"
  131.          Size            =   14.25
  132.          Charset         =   0
  133.          Weight          =   400
  134.          Underline       =   0   'False
  135.          Italic          =   0   'False
  136.          Strikethrough   =   0   'False
  137.       EndProperty
  138.       ForeColor       =   &H000000C0&
  139.       Height          =   375
  140.       Index           =   2
  141.       Left            =   300
  142.       TabIndex        =   0
  143.       Top             =   660
  144.       Width           =   4155
  145.    End
  146. End
  147. Attribute VB_Name = "About"
  148. Attribute VB_GlobalNameSpace = False
  149. Attribute VB_Creatable = False
  150. Attribute VB_PredeclaredId = True
  151. Attribute VB_Exposed = False
  152. Option Explicit
  153.  
  154. Private Sub Form_Load()
  155.  
  156. On Error GoTo errhandler
  157.         
  158.     form_StayOnTop About, True, "C"
  159.         
  160.     lblVersion.Caption = "version " & App.Major & "." & App.Minor & "." & Format$(App.Revision, "000")
  161.     lblAboutTitle(1).Caption = "Small Database Utility"
  162.     lblAboutTitle(2).Caption = "fully configurable..."
  163.     
  164. errhandler:
  165.     Exit Sub
  166. End Sub
  167.  
  168.  
  169. Private Sub Label5_Click()
  170.  
  171. On Error GoTo errhandler
  172.  
  173.     Unload Me
  174.     
  175. errhandler:
  176.     Exit Sub
  177. End Sub
  178.  
  179.  
  180.