Imports System
Imports System.Globalization
Public Class SamplesTextInfo
Public Shared Sub Main()
Dim myString As String = "this IS a Test"
Dim myTI As TextInfo = New CultureInfo("en-US", False).TextInfo
Console.WriteLine(myTI.ToLower(myString))
Console.WriteLine(myString, myTI.ToUpper(myString))
Console.WriteLine(myString, myTI.ToTitleCase(myString))
End Sub
End Class