FileFrm2
Faster File I/O
Form1*
Label1
InfoSoft I/O
Label6
Normal VB 
Frame1
Write To File
Read From File
Command1
Execute
Frame2
Write To File
Read From File
Command2
Execute
IFilS
Command1_Click
Caption
TStruct
value
FCreat
FhandleA
FOpen7
FRecPutA
Visible
FRecGetA
FClose
Command2_Click
Form_Paint
	ConvexFrm
FileFrm2
ConcaveCtl
Form_Unload
Cancel
Fexists6
Command1_Click
Creating random file
Memory structure done. Starting timer"
ITest.fil"
Outputting to file
Reading from file"
Our I/O ops took "
 secs"
Command2_Click
Creating random file
Memory structure done. Starting timer"
VTest.fil"
Outputting to file
Reading from file"
VB I/O ops took 
 secs"
Form_Paint
Form_Unload