Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
[/ignore][/b] and [b][ignore]
Private Sub Command1_Click()
Dim SSS as String, fnum as integer,DD as Integer
fnum = FreeFile()
Open "C:\TextFile.txt" For [!]Output[/!] As #fnum
Do until EOF(fnum) = True
[!]Input[/!] #fnum, SSS
List1.AddItem SSS
Loop
Close fnum
End Sub