FRMABOUT.FRM

VERSION 5.00 
Begin VB.Form frmAbout  
   Caption         =   "Form1" 
   ClientHeight    =   3225 
   ClientLeft      =   60 
   ClientTop       =   345 
   ClientWidth     =   5790 
   LinkTopic       =   "Form1" 
   ScaleHeight     =   3225 
   ScaleWidth      =   5790 
   StartUpPosition =   3  'Windows Default 
   Begin VB.CommandButton cmdOK  
      Caption         =   "&OK" 
      Height          =   375 
      Left            =   4560 
      TabIndex        =   0 
      Top             =   2640 
      Width           =   1095 
   End 
   Begin VB.PictureBox Picture1  
      Height          =   975 
      Left            =   120 
      ScaleHeight     =   915 
      ScaleWidth      =   1035 
      TabIndex        =   7 
      Top             =   240 
      Width           =   1095 
   End 
   Begin VB.Label Label7  
      Caption         =   "All rights reserved." 
      Height          =   255 
      Left            =   1680 
      TabIndex        =   9 
      Top             =   1440 
      Width           =   1455 
   End 
   Begin VB.Label lblCopyright  
      Caption         =   "Copyright (C) 1987-1997 Microsoft Corporation" 
      Height          =   255 
      Left            =   1680 
      TabIndex        =   8 
      Top             =   1200 
      Width           =   3375 
   End 
   Begin VB.Label Label6  
      Caption         =   $"frmAbout.frx":0000 
      Height          =   855 
      Left            =   120 
      TabIndex        =   6 
      Top             =   2280 
      Width           =   4215 
   End 
   Begin VB.Label Label5  
      Caption         =   "Warning: This computer program is protected by copyright law and international treaties." 
      Height          =   375 
      Left            =   120 
      TabIndex        =   5 
      Top             =   1920 
      Width           =   4335 
   End 
   Begin VB.Line Line1  
      DrawMode        =   1  'Blackness 
      X1              =   120 
      X2              =   5640 
      Y1              =   1800 
      Y2              =   1800 
   End 
   Begin VB.Label Label4  
      Caption         =   "Pre-Release Version (Build 3.0.0)" 
      Height          =   255 
      Left            =   1680 
      TabIndex        =   4 
      Top             =   960 
      Width           =   2895 
   End 
   Begin VB.Label Label3  
      Caption         =   "ADO Consumer Sample" 
      Height          =   375 
      Left            =   1680 
      TabIndex        =   3 
      Top             =   720 
      Width           =   1095 
   End 
   Begin VB.Label Label2  
      Caption         =   "Microsoft Corporation" 
      Height          =   255 
      Left            =   1680 
      TabIndex        =   2 
      Top             =   240 
      Width           =   1815 
   End 
   Begin VB.Label Label1  
      Caption         =   "Microsoft OLE DB Data Provider for AS/400 and VSAM" 
      Height          =   375 
      Left            =   1680 
      TabIndex        =   1 
      Top             =   480 
      Width           =   3975 
   End 
End 
Attribute VB_Name = "frmAbout" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Sub cmdOK_Click() 
    On Error Resume Next 
     
    frmAbout.Hide 
    Unload frmAbout 
 
End Sub