iyi gunler elde etmek istedigim uygulama
xx kişilik bir ad soyad listesini kaydeden ve sıralayan text dosyasını form uzerinde oluşturabilmek.

denediğim fakat calıştıramadığım kodlar burda

Private Sub Command1_Click()


Open "c:\odev.txt" For Output As #1
For k = 1 To 10
s = Rnd(Rnd() * 100)
ad = InputBox(s & "notunu alan kisi adi")
Write #1, k, s, ad
List1.AddItem ad
Next
Close #1

End Sub

Private Sub Command2_Click()
Form2.Show

Open "c:\odev.txt" For Input As #1
Do
Input #1, ad
List1.AddItem ad
Loop While Not EOF(1)
Close #1

'Dim ad As adsoyad
Form2.Show
Open "c:\odev.txt" For Random As #1 Len = 40
n = LOF(1) / 40
For i = 1 To 10
'Get #1 & ad
Form2.Print k, ad,
Next i
Close
End Sub
burada kayıt ettiğim kişilerin listesini form uzerinde goremiyorum?

[IMG]http://img177.**************/img177/5748/vbtd8.jpg[/IMG]

burdada bir sorunum var ben text kutusuna yazdıklarımın listbox uzerine eklenmesini istiyorum fakat bu tip başladığımda
Private Sub Command1_Click()
Open "c:\cuma" For Append As #1
Write #1, Text1, Text2
Print #1, Text3
Close #1
Text1 = "": Text2 = Text3 = ""
End Sub

text2 dekileri text3 e gostermiyor ve text2 uzerinde false yazıyor?
yardımcı olabilirseniz sevinirim iyi gunler
__________________