Option Explicit
'>>>>>>>>>>>>>>>>>>>>>>>>
'ResMe Converted To A Property: Const BUTTON1 = "&OK"
'ResMe Converted To A Property: Const BUTTON2 = "&Cancel"
'ResMe Converted To A Property: Const Label1 = "Data Source:"
'>>>>>>>>>>>>>>>>>>>>>>>>


Private Sub cmdCancel_Click()
  gnDataType = gnDT_NONE
  Me.Hide
End Sub

Private Sub cmdOK_Click()
  gnDataType = lstTypes.ListIndex
  Me.Hide
End Sub

Private Sub lstTypes_DblClick()
  Call cmdOK_Click
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyF1 And Shift = 0 Then
    DisplayTopic 2016123
  End If
End Sub

Private Sub Form_Load()
    'ResMe autogenerated line of code to call the initialization routine that was automatically generated.
    Call frmDataType_Auto_Init
  cmdOK.Caption = BUTTON1
  cmdCancel.Caption = BUTTON2
  lblLabel1.Caption = Label1
  
  If Tag <> "LOADED" Then
    Tag = "LOADED"
  End If
  lstTypes.AddItem "Access MDB"
  lstTypes.AddItem "Dbase IV"
  lstTypes.AddItem "Dbase III"
  lstTypes.AddItem "FoxPro 2.6"
  lstTypes.AddItem "FoxPro 2.5"
  lstTypes.AddItem "FoxPro 2.0"
  lstTypes.AddItem "Paradox 4.X"
  lstTypes.AddItem "Paradox 3.X"
  lstTypes.AddItem "Btrieve"
  lstTypes.AddItem "Excel 5.0"
  lstTypes.AddItem "Excel 4.0"
  lstTypes.AddItem "Excel 3.0"
  lstTypes.AddItem "Text"
  lstTypes.AddItem "ODBC"

  lstTypes.ListIndex = 0

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 BUTTON1 = "&OK"
Property Get BUTTON1 As String
    BUTTON1 = "&OK"
End Property

'This was: Const BUTTON2 = "&Cancel"
Property Get BUTTON2 As String
    BUTTON2 = "&Cancel"
End Property

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


Private Sub frmDataType_Auto_Init()
'This routine initializes all User Interface control properties on frmDataType.
'This section of code was automatically generated by the ResMe String Extraction Utility.
    Me.Caption = "Data Type"
    cmdCancel.Caption = "&Cancel"
    cmdOK.Caption = "&OK"
    lblLabel1.Caption = " Data Source: "
End Sub