[silverlight]

PHP كود :

       Dim list As List(Of String) = New List(Of String) From {"One", "Two", "Three", "Four"}

        Dim minIndex As Integer = 0
        Dim maxIndex As Integer = 3
        Dim value As String = list(minIndex)
        list(minIndex) = list(maxIndex)
        list(maxIndex) = value

        ' هذا الجزء من الكود لعرض النتائج فقط في ليست بوكس
        For Each s As String In list
            ListBox1.items.add(s)
        Next 


أسلوب اخر 

PHP كود :

       Dim list As List(Of String) = New List(Of String) From {"One", "Two", "Three", "Four"}

        Dim item As String = list(3)
        list.RemoveAt(3)

        Dim l As List(Of String) = New List(Of String)
        l.Add(item)

        For Each s As String In list
            l.Add(s)
        Next

        For Each ss As String In l
            ListBox1.Items.Add(ss)
        Next