Imports System
Imports System.Linq
Public Class Program
Public Shared Sub Main()
Dim s As String = "vb.NET Programming"
s = New String(s.[Select](Function(ch) If(Char.IsLetter(ch),
(If(Char.IsUpper(ch),
Char.ToLower(ch), Char.ToUpper(ch))), ch)).ToArray())
Console.Write(s)
End Sub
End Class
' run:
'
' VB.net pROGRAMMING
'