Option Explicit

'>>>>>>>>>>>>>>>>>>>>>>>>
'ResMe Converted To A Property: Const FORMCAPTION = "About Visual Data Manager"
'ResMe Converted To A Property: Const LABEL0 = "Microsoft Visual Basic"
'ResMe Converted To A Property: Const Label1 = "Visual Data Manager"
'ResMe Converted To A Property: Const Label2 = "Version 6.0"
'ResMe Converted To A Property: Const LABEL3 = "Copyright © Microsoft Corp. 1996-98"
'ResMe Converted To A Property: Const BUTTON1 = "&OK"
'>>>>>>>>>>>>>>>>>>>>>>>>


Private Sub Form_KeyPress(KeyAscii As Integer)
  Unload Me
End Sub

Private Sub Form_Load()
    'ResMe autogenerated line of code to call the initialization routine that was automatically generated.
    Call frmAboutBox_Auto_Init
  Me.Caption = FORMCAPTION
  lblLabels(0).Caption = LABEL0
  lblLabels(1).Caption = Label1
  lblLabels(2).Caption = Label2
  lblLabels(3).Caption = LABEL3
  cmdOK.Caption = BUTTON1
End Sub

Private Sub cmdOK_Click()
  Unload Me
End Sub

Private Sub cmdOK_KeyPress(KeyAscii As Integer)
  Unload Me
End Sub


'*********************************************************************************
'**          This Section Of Code Was Automatically Generated By ResMe          **
'**                                                                             **
'** String assignments to Constants have been converted to read-only properties **
'*********************************************************************************


'This was: Const FORMCAPTION = "About Visual Data Manager"
Property Get FORMCAPTION As String
    FORMCAPTION = "About Visual Data Manager"
End Property

'This was: Const LABEL0 = "Microsoft Visual Basic"
Property Get LABEL0 As String
    LABEL0 = "Microsoft Visual Basic"
End Property

'This was: Const Label1 = "Visual Data Manager"
Property Get Label1 As String
    Label1 = "Visual Data Manager"
End Property

'This was: Const Label2 = "Version 6.0"
Property Get Label2 As String
    Label2 = "Version 6.0"
End Property

'This was: Const LABEL3 = "Copyright © Microsoft Corp. 1996-98"
Property Get LABEL3 As String
    LABEL3 = "Copyright © Microsoft Corp. 1996-98"
End Property

'This was: Const BUTTON1 = "&OK"
Property Get BUTTON1 As String
    BUTTON1 = "&OK"
End Property


Private Sub frmAboutBox_Auto_Init()
'This routine initializes all User Interface control properties on frmAboutBox.
'This section of code was automatically generated by the ResMe String Extraction Utility.
    Me.Caption = "About Visual Data Manager"
    cmdOK.Caption = "&OK"
    lblLabels(3).Caption = "Copyright © Microsoft Corp. 1996-98"
    lblLabels(2).Caption = "Version 6.0"
    lblLabels(1).Caption = "Visual Data Manager"
    lblLabels(0).Caption = "Microsoft Visual Basic"
End Sub