RosettaCodeData/Task/Generic-swap/Visual-Basic-.NET/generic-swap-1.vb

Sub Swap(Of T)(ByRef a As T, ByRef b As T)
    Dim temp = a
    a = b
    b = temp
End Sub