by Backwoods Interactivw (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 4th June 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Open a text file into a text box!!!
Open Text1.Text for input as #1
dim gotfile as string
Do
On error goto endopen
Input #1, Gotfile
Text2.Text = Text2.Text + vbnewline + Gotfile
Loop
endopen:
close #1
exit sub
end sub