' 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