Imports System
Imports System.Collections
Public Class MainClass
Shared Sub Main(ByVal args As String())
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
End Class