' 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