无须代码，操作步骤如以下截图所示：
1) 保存 D:\1.Txt 文件程序如下:
Dim FileNum As Long
Dim fileName As String
fileName = "D:\1.Txt"
FileNum = FreeFile()
Open fileName For Output As FileNum
Print #FileNum, "C:\Document and Setting\Administrator\桌面\psb.pjg"
Close FileNum
2) Image 装载图片文件
Dim FileNum As Long
Dim fileName As String
Dim tmpStr As String
fileName = "D:\Txt\1.Txt"
FileNum = FreeFile()
Open fileName For Input As FileNum
Line Input #FileNum, tmpStr
Close FileNum
If Len(Dir$(tmpStr))=0 Then
MsgBox "文件:"+tmpStr +" 不存在!"
Exit Sub
End If
Image.Picture=LoadPicture(tmpStr)
Open App.Path & "\1.txt" For Binary As #1
Image1.Picture = LoadPicture(Input(LOF(1), #1))
Close #1
