Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim str1 As String
        Dim str2 As String

        str1 = "vb.net"
        str2 = "VB.NET"

        Dim result As Integer

        result = String.Compare(str1, str2)
        MsgBox(result)

        result = String.Compare(str1, str2, True)
        MsgBox(result)
    End Sub
End Class