如何从文本文件读取图片数据后，用PIC显示出来

Question

如何从文本文件读取图片数据后，用PIC显示出来
Private Sub Command1_Click()
 Set fs = CreateObject("Scripting.FileSystemObject")     '''''''''读取文本文件
 Set es = fs.opentextfile("D:\2.txt", 1, 0)
 Do While es.AtEndOfStream <> True
    'Me.text1.Text = Me.text1.Text + es.Readline + Chr(13) + Chr(10)
    es.readline
    
 Loop
    es.Close
End Sub
已经把文件读出来了，但是不知道怎么显示出来。

Answer 1

格式如下：
FF D8 FF E0 00 10 4A 46 49 46 00 01 01 00 00 01 00 01 00 00 FF DB 00 43 00 16 0F 11 13 11 0E 16 13 12 13 19

Answer 2

picture1.pset(　　）？？？
还有一个方法就是ＤＩＢ项，速度比这个快很多

Answer 3

Picture1.ForeColor = vbRed '设置颜色
Picture1.PSet (1440, 1440) '描点如楼上所说DIB的速度较快