Dim Veri As Variant
Dim Dizi As Variant
Veri = Replace(Me.Metin0, vbCrLf, ", ")
Dizi = Split(Veri, ",")
For say = LBound(Dizi) To UBound(Dizi)
Me.Liste7 = ""
Me.Liste7.AddItem Dizi(say)
Next
Me.Metin5 = Liste7.Column(0, 6)
#3
bzhmt.rar
(Dosya Boyutu: 26,83 KB | İndirme Sayısı: 9)
