Txt dosyasını Listbox ekle !

formde bi command buton ekleyin içine şunu yazın ;


Private Sub TXTEKLE_Click()

Dim Eklenecek As String
Open "c:\list.txt" For Input As #1
List1.Clear
While Not EOF(1)
Input #1, Eklenecek
List1.AddItem Eklenecek
Wend
List1.Refresh
Close #1

End Sub