Evet Arkadaşlar Yine Bİr Paylaşımda Yine Bir Vb Kodlarında Beraberiz İnşallah İşinize Yarar Cok Soran Gordumde Duzenledim Buyrun



Private Sub Command1_Click()
Dim BulunanKelimeler As String
Open "C:\test.txt" For Input As #1
List1.Clear
While Not EOF(1)
Input #1, StringHold
List1.AddItem BulunanKelimeler
Wend
Close #1
End Sub
__________________