VERSION 4.00
Begin VB.Form frmDBProperties 
   Caption         =   "Database Properties"
   ClientHeight    =   3930
   ClientLeft      =   2040
   ClientTop       =   1575
   ClientWidth     =   6690
   Height          =   4335
   Left            =   1980
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   3930
   ScaleWidth      =   6690
   Top             =   1230
   Width           =   6810
   Begin VB.CheckBox chkPictures 
      Caption         =   "Show candidate pictures."
      DataField       =   "ShowPictures"
      DataSource      =   "dbaAbout"
      Height          =   315
      Left            =   1080
      TabIndex        =   6
      Top             =   2700
      Width           =   5175
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "&Cancel"
      Height          =   435
      Left            =   3540
      TabIndex        =   4
      Top             =   3270
      Width           =   1575
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "&Save"
      Height          =   435
      Left            =   1830
      TabIndex        =   3
      Top             =   3270
      Width           =   1575
   End
   Begin VB.Data dbaAbout 
      Caption         =   "cmdDBProp"
      Connect         =   "Access"
      DatabaseName    =   "C:\SAMS\Maketeam.mdb"
      Exclusive       =   -1  'True
      Height          =   300
      Left            =   210
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "tblAboutDatabase"
      Top             =   3420
      Visible         =   0   'False
      Width           =   1140
   End
   Begin VB.TextBox txtSubject 
      DataField       =   "Subject"
      DataSource      =   "dbaAbout"
      Height          =   285
      Left            =   1080
      TabIndex        =   0
      Top             =   180
      Width           =   5265
   End
   Begin VB.Label Label2 
      Alignment       =   1  'Right Justify
      Caption         =   "Detail:"
      Height          =   315
      Left            =   300
      TabIndex        =   5
      Top             =   630
      Width           =   645
   End
   Begin RichtextLib.RichTextBox rtbDetail 
      DataField       =   "Detail"
      DataSource      =   "dbaAbout"
      Height          =   1875
      Left            =   1080
      TabIndex        =   2
      Top             =   630
      Width           =   5265
      _Version        =   65536
      _ExtentX        =   9287
      _ExtentY        =   3307
      _StockProps     =   69
      BackColor       =   -2147483643
      TextRTF         =   $"DBProp.frx":0000
   End
   Begin VB.Label Label1 
      Alignment       =   1  'Right Justify
      Caption         =   "Subject:"
      Height          =   315
      Left            =   180
      TabIndex        =   1
      Top             =   210
      Width           =   765
   End
Attribute VB_Name = "frmDBProperties"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdCancel_Click()
  Unload frmDBProperties
End Sub
Private Sub cmdOK_Click()
  Unload frmDBProperties
End Sub
Private Sub Form_Load()
  Left = (Screen.Width - Width) / 2
  TOP = (Screen.Height - Height) / 2
  MousePointer = 0
  dbaAbout.DatabaseName = gMainDBName
  dbaAbout.Refresh
End Sub