Function swap reference parameters Learn programming Visual Basic (VB.net)

Imports System
Public Class exercise106
    Public Shared Sub Swap(ByRef x As Integer, ByRef y As Integer)
        Dim swap As Integer
        swap = x
        x = y
        y = swap
    End Sub

    Public Shared Sub Main()
        Dim x As Integer = 5
        Dim y As Integer = 3
        Swap(x, y)
        Console.WriteLine("x: {0} , y: {1}", x, y)
    End Sub
End Class