Imports System
Imports System.Text.RegularExpressions
Public Class CompareCaseInsensitiveString_VB_NET
Public Shared Sub Main(ByVal args As String())
Dim s1 As String = "c# vb JAVA", s2 As String = "C# VB java"
Dim b As Boolean = Regex.IsMatch(s2, s1, RegexOptions.IgnoreCase)
If b Then
Console.WriteLine("Equal")
Else
Console.WriteLine("Not Equal")
End If
End Sub
End Class
' run:
'
' Equal
'