Imports System

Public Module Module1

    Public Sub Main()

         'assignment

        Dim value1 As Integer = 15

        Dim value2 As Integer = 34

        Dim Temp As Integer

​

        'sequence

        Console.WriteLine("value1 is " & value1)

        Console.WriteLine("value2 is " & value2)

​

        'Temp<--value1

        Temp = value1

        'value1<--value2

        value1 = value2

        'value2<--Temp

        value2 = Temp

​

        'sequence

        Console.WriteLine("after swapping")

        Console.WriteLine("value1 is " & value1)

        Console.WriteLine("value2 is " & value2)

​

        Console.ReadLine()

    End Sub

End Module