hey..nice site...
now I know this may be "basic" stuff but....
i wanna know if this code could be shortened or made more efficient? >>
Private Sub Form_Load()
Dim x As String
Open "artist.txt" For Append As #1
Open "song.txt" For Append As #2
Open "album.txt" For Append As #3
Open "genre.txt" For Append As #4
Close #1
Close #2
Close #3
Close #4

Open "artist.txt" For Input As #1
Do While Not EOF(1)
Input #1, x
lstArtist.AddItem x
Loop
Close #1
Open "song.txt" For Input As #1
Do While Not EOF(1)
Input #1, x
lstSong.AddItem x
Loop
Close #1
Open "album.txt" For Input As #1
Do While Not EOF(1)
Input #1, x
lstAlbum.AddItem x
Loop
Close #1
Open "genre.txt" For Input As #1
Do While Not EOF(1)
Input #1, x
lstGenre.AddItem x
Loop
Close #1

End Sub
thx! ;-)