请问如何将一个变量中的图片内容显示到 pictureBox 控件中？

[yoyoyosiyu]

假如我有一张图片存储在 Access 数据库中，我用以下这种方法获得了该图象：

dim pict as variant

pict = rst.Fields("picture").GetChunk(rst.Fields("picture").ActualSize)

请问我如何将 pict 变量中的图片内容通过 picturebox 控件显示出来呢？(请不要用数据绑定的方法）

[carefulman]

dim a() as byte
redim a(rs("pic").ActualSize) as byte
rs("Pic").getchunk a
open "c:\x.bmp" for binary as #1
put #1 ,1,a
close #1
pic1.picture=loadpicture("c:\x.bmp")

[carefulman]

哦！别忘了kill "c:\x.bmp"

[cow_boy]

???????

[yangzhaoyu]

参考
Private Sub Command1_Click()
Dim pic As Picture
Set pic = LoadPicture("d:\1.bmp")
Picture1.Picture = pic
End Sub

[yoyoyosiyu]

请高手帮帮忙！

[apollo]

句柄

[yoyoyosiyu]

愿闻其详！