Option Strict On
Imports System
Class Tester
Public Shared Sub Main( )
Dim s1 As String = "abcd"
Dim s2 As String = "ABCD"
' the String copy method
Dim s5 As String = String.Copy(s2)
Console.WriteLine("s5 copied from s2: {0}", s5)
' copy with the overloaded operator
Dim s6 As String = s5
Console.WriteLine("s6 = s5: {0}", s6)
' member method
Console.WriteLine("Does s6.Equals(s5)?: {0}", s6.Equals(s5))
' shared method
Console.WriteLine("Does Equals(s6,s5)?: {0}", _
String.Equals(s6, s5))
End Sub 'Main
End Class 'Tester
s5 copied from s2: ABCD
s6 = s5: ABCD
Does s6.Equals(s5)?: True
Does Equals(s6,s5)?: True