VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmSortNames 
   Caption         =   "Sort Names"
   ClientHeight    =   5025
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6690
   LinkTopic       =   "Form1"
   ScaleHeight     =   5025
   ScaleWidth      =   6690
   StartUpPosition =   3  'Windows Default
   Begin VB.ListBox lstNames 
      Height          =   4350
      Left            =   240
      Sorted          =   -1  'True
      TabIndex        =   2
      Top             =   240
      Width           =   3975
   End
   Begin MSComDlg.CommonDialog cdlBox 
      Left            =   6120
      Top             =   0
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.CommandButton cmdChange 
      Caption         =   "Last, First"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   4680
      TabIndex        =   1
      Top             =   2760
      Width           =   1215
   End
   Begin VB.CommandButton cmdDone 
      Caption         =   "DONE"
      Height          =   495
      Left            =   4680
      TabIndex        =   0
      Top             =   4080
      Width           =   1215
   End
End
Attribute VB_Name = "frmSortNames"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmdChange_Click()
    Dim space As Integer
    Dim strList As String
    
    space = " "
    
   
        
End Sub

Private Sub cmdDone_Click()
    End
End Sub



Private Sub Form_Load()
    
    Dim intFileNum As Integer, strTextLine As String
    
    intFileNum = FreeFile
    
    cdlBox.InitDir = "Z:\WilliamsKeith\VB 2\Chapter 13\Pr. 13-2"
    cdlBox.Filter = "Text files (*.txt)|*.txt"
    cdlBox.ShowOpen
    
    If cdlBox.FileName <> "" Then   'Cancel button not clicked
        Open cdlBox.FileName For Input As #intFileNum
     
    End If
    
    Do While Not EOF(intFileNum)    'Display file in text box
        Line Input #intFileNum, strTextLine
        lstNames.AddItem strTextLine
    Loop
    Close #intFileNum
    End Sub