Private Sub Combo1_Click()
  Dim F As Integer
  Dim sFile As String
  Dim sLine As String
 
  If Combo1.ListIndex > -1 Then
    List1.Clear
    sFile = Combo1.Text
    F = FreeFile
    Open sFile For Input As #F
    While Not Eof(F)
      Line Input #F, sLine
      List1.AddItem sLine
    Wend
    Close #F
  End If
End Sub