把文件置入到Text或RichText中

　　 

　　把文件置入到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

原文转自：http://www.ltesting.net