Public Shared Function Exchange (ByRef location1 As Integer, value As Integer) As Integer Dim result = location1 '※1 location1 = value '※2 Return result End Funciton