Imports System
Public Class Program
Public Shared Sub Swap(Of T)(ByRef a As T, ByRef b As T)
Dim temp As T = a
a = b
b = temp
End Sub
Public Shared Sub Main()
Dim arr As Integer() = New Integer() {99, 3, 7, 0, 2, 1, 8, 6}
Swap(arr(0), arr(4))
For i As Integer = 0 To arr.Length - 1
Console.Write(arr(i) & " ")
Next
End Sub
End Class
' run:
'
' 2 3 7 0 99 1 8 6
'