Imports System
Public Class ToLowerTest
Public Shared Sub Main()
Dim info As String() = {"Name", "Title", "Age", "Location", "Gender"}
For Each s In info
Console.WriteLine(s.ToLower())
Next
For Each s In info
Console.WriteLine(s.ToUpper())
Next
End Sub
End Class