再添加一个图片框，设置为隐藏属性，先将图像读入到这个图片框，再用PaintPicture语句复制到你说的那个图片框

这是难题吗？
PictureBox控件有属性能使图片适应控件大小

[quote]这是难题吗？
PictureBox控件有属性能使图片适应控件大小[/quote]
有吗

Private Sub Picture1_Change()
    Picture1.Width = Picture1.Picture.Width
    Picture1.Height = Picture1.Picture.Height
End Sub
 
'不知道单位是什么,自己找找吧!~

我记得像是在 PictureBox 载入图片之前，先设 AutoSize 属性为 True。

不对的话，请大家批评。

楼上的请看清楼主的意思,不是让图片框适应图片而是让图片适应图片框!
下面的代码可以实现这个功能

Private Sub DrawImage(PicControl As PictureBox, ImageFile As String)
    Dim tmpPic As StdPicture
    
    Set tmpPic = LoadPicture(ImageFile)
    
    PicControl.PaintPicture tmpPic, 0, 0, PicControl.ScaleWidth, PicControl.ScaleHeight
    Set tmpPic = Nothing
End Sub