' Swap two elements in the input array'' Example:' Dim arr As Integer() = {3, 7, 8, 2, 0, 9}' SwapArrayItems(arr, 1, 4)' Dim o As Object' For Each o In arr' Debug.Write(o & " ")' Next' Debug.WriteLine("")Sub SwapArrayItems(ByVal arr As Array, ByVal index1 As Integer, _ ByVal index2 As Integer) Dim temp As Object = arr(index1) arr(index1) = arr(index2) arr(index2) = tempEnd Sub
![Outage Reddit](https://www.devx.com/wp-content/uploads/Outage-Reddit-300x171.jpg)