Option Compare Text
Public Class clsOptionCompare
 
    Public Sub Main()
 
 
        '****************************************************************************************
        ' Purpose: Declares the default comparison method to use when comparing string data.
        '
        ' Syntax: 	Option Compare { Binary | Text }
        '
        ' Parameter1: Binary/Text - Binary - Optional - compares based on binary representation - case sensitive
        ' Text - Optional - compares based on text representation - case insensitive
        '
        ' Result: comparisons - case sensitive if binary is specified; case insensitive if 
        ' text is specified. NOTE: Option statement must appear in a file before 
        ' any other source code statements
        '
        ' Quick Example: 
        ' Console.WriteLine("A" = "a") ' Returns True when Option Compare Text is specified at top of page
        '
        '****************************************************************************************
 
        Console.WriteLine("Example #1: 	Option Compare Text")
 
 
        Console.WriteLine("A" = "a") ' Returns True
 
 
        'write blank line to make output easier to read
        Console.WriteLine()
 
 
 
        'Prevent console from closing before you press enter
        Console.ReadLine()
 
    End Sub
 
 
End Class

Module Module1
 
    Sub Main()
 
 
        Dim myclsOptionCompare As New clsOptionCompare
        myclsOptionCompare.Main()
 
 
 
    End Sub
 
End Module