VB.Net/Generics/Generic Function

Generic Swap

  
Option Explicit On
Option Strict On
Module Program
  Public Function Swap(Of T)(ByRef a As T, ByRef b As T) As T
    Console.WriteLine("T is a {0}.", GetType(T))
    Dim temp As T
    temp = a
    a = b
    b = temp
  End Function
  Sub DisplayBaseClass(Of T)()
    Console.WriteLine("Base class of {0} is: {1}.", GetType(T), GetType(T).BaseType)
  End Sub
  Sub Main()
    Dim a, b As Integer
    a = 10 : b = 40
    Swap(Of Integer)(a, b)
    Dim s1, s2 As String
    s1 = "Generics" : s2 = "Rock"
    Swap(Of String)(s1, s2)
    Dim b1, b2 As Boolean
    b1 = True : b2 = False
    Swap(b1, b2)
    DisplayBaseClass(Of Boolean)()
    DisplayBaseClass(Of String)()
    DisplayBaseClass(Of Integer)()
  End Sub
End Module