## How to compare strings with 'LIKE'

    ' Gambas class file

    ' STATIC PUBLIC SUB Main()
    '   hForm AS Fmain
    '   hForm = NEW Fmain
    '   hForm.show
    ' END

    PUBLIC SUB Button1_Click()
      IF Label1.Text LIKE TextBox1.Text THEN
        TextLabel1.Text = TextBox1.Text & " does match !"
      ELSE
        TextLabel1.Text = TextBox1.Text & " does not match !"
      ENDIF
    END

-- JochenGeorges - 28 Dec 2004