20.txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

 把文件置入到Text或RichText中   
 
dim sFile as string
'Set sFile equal to your filename
dim i as long

i = freefile()

open sFile for input as #i
txtMain.text = input$(i,LOF(i))
close #1