[سعود]

ادوات الليست بوكس الللي تحت الازرار هي لمراقبة محتوى القوائم الداخلية(ان صحت التسمية)

PHP كود :

Public Class Form1
    Dim Arr() As String
    Dim lst As New List(Of String)
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ReDim Arr(ListBox1.Items.Count)
        Dim i As Integer
        For i = 0 To ListBox1.Items.Count - 1
            Arr(i) = ListBox1.Items(i).ToString
        Next
        larr.Items.Clear()
        For m = LBound(Arr) To (UBound(Arr) - 1)
            larr.Items.Add(Arr(m))
        Next

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        lst.Clear()
        For Each h As String In ListBox1.Items
            lst.Add(h)
        Next
        llst.Items.Clear()
        For Each h As String In lst
            llst.Items.Add(h)
        Next

    End Sub
End Class