Imports System
Imports System.Threading
Class Sample
Public Shared Sub Main()
Dim scValues As StringComparison() = { _
StringComparison.CurrentCulture, _
StringComparison.CurrentCultureIgnoreCase, _
StringComparison.InvariantCulture, _
StringComparison.InvariantCultureIgnoreCase, _
StringComparison.Ordinal, _
StringComparison.OrdinalIgnoreCase}
Dim sc As StringComparison
For Each sc In scValues
Console.WriteLine("StringComparison.{0}:", sc)
Console.WriteLine("abcXYZ".EndsWith("XYZ"), sc)
Console.WriteLine("abcXYZ".EndsWith("xyz"), sc)
Next sc
End Sub
End Class