' Gambas class file
PUBLIC SUB Button1_Click()
myLine AS String
myFile AS File
nb AS Integer
X AS Integer
nb = 0
'test.txt must exist!
OPEN "test.txt" FOR READ AS myFile
WHILE NOT Eof(myFile)
LINE INPUT #myFile, myLine
TextLabel1.Text= TextLabel1.Text & "<br>" & myLine
WEND
CLOSE myFile
END
-- JochenGeorges - 28 Dec 2004