Imports System
Imports System.Collections
Public Class MainClass
Shared Sub Main(ByVal args As String())
' create some Strings to work with
Dim s1 As [String] = "abcd"
Dim s2 As [String] = "ABCD"
Dim result As Integer ' hold the results of comparisons
' compare two Strings, case sensitive
result = [String].Compare(s1, s2)
Console.WriteLine( _
"compare s1: {0}, s2: {1}, result: {2}" _
& Environment.NewLine, s1, s2, result)
' overloaded compare, takes boolean "ignore case"
'(true = ignore case)
result = [String].Compare(s1, s2, True)
Console.WriteLine("Compare insensitive. result: {0}" _
& Environment.NewLine, result)
End Sub
End Class