Public Class App
    Public Shared Sub Main() 
        Dim o As Object = Nothing
        Dim p As Object = Nothing
        Dim q As New Object
        Console.WriteLine(Object.ReferenceEquals(o, p))
        p = q
        Console.WriteLine(Object.ReferenceEquals(p, q))
        Console.WriteLine(Object.ReferenceEquals(o, p))
    End Sub 
End Class

Public Module Example
   Public Sub Main
      Dim int1 As Integer = 3
      Console.WriteLine(Object.ReferenceEquals(int1, int1))
      Console.WriteLine(int1.GetType().IsValueType)
   End Sub
End Module

Module Example
   Public Sub Main()
      Dim s1 As String = "String1"
      Dim s2 As String = "String1"
      Console.WriteLine("s1 = s2: {0}", Object.ReferenceEquals(s1, s2))
      Console.WriteLine("{0} interned: {1}", s1, 
                        If(String.IsNullOrEmpty(String.IsInterned(s1)), "No", "Yes"))

      Dim suffix As String = "A"
      Dim s3 = "String" + suffix
      Dim s4 = "String" + suffix
      Console.WriteLine("s3 = s4: {0}", Object.ReferenceEquals(s3, s4))
      Console.WriteLine("{0} interned: {1}", s3, 
                        If(String.IsNullOrEmpty(String.IsInterned(s3)), "No", "Yes"))
   End Sub
End Module