在VB的picture控件中如休加入一个已有的文体文件

是文本文件吧？假设文本文件名为 text.txt 则：

'用来读取文件先设置
'工程－－>引用 --> Microsoft Scripting Runtime
'必不可少的，否则你读不了文件。

Private Sub Form_Activate()
OpenFile "text.txt"
End Sub
Public Function OpenFile(ByVal FileName As String)
Dim fso As New FileSystemObject
Dim TxtFile As TextStream
Dim s As String
If FileName = "" Then Exit Function
On Error GoTo RNext
Set TxtFile = fso.OpenTextFile(FileName, ForReading, False, TristateUseDefault)
Do
s = TxtFile.ReadLine()
Picture1.Print s
Loop
RNext:
TxtFile.Close
End Function

Pict1.Picture = LoadPicture("c:\a.jpg")