Private Sub Command1_Click()


Dim sline As String


nfile = FreeFile


Combo1.Clear


Open "c:windowsdesktopbooks.txt" For Input As #nfile


While Not EOF(1)


Line Input #nfile, sline


Combo1.AddItem sline


Wend


End Sub