[bidaya]

السلام عليكم

رمضانكم كريم

لديا هذا الكود تعبئة ليست بوكس

كود :

   Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
       Dim lines As String() = File.ReadAllLines("C:\GHOST.txt")
       Dim array As String() = lines
       For net As Integer = 0 To array.Length - 1
           Dim x As String = array(net)
           Dim data As String() = x.Split(",")
           If data.Length = 2 Then
               Me.ListBox1.Items.Add(data(0))
               Me.vbnet.Add(data(1))

           End If
       Next
   End Sub

اتمنى السؤال واضح