在图片框中显示图片（如果图片大小超过图片框，用滚动条控制显示）。
这个怎么弄啊？

不清楚．不过你可以直接调用打开图片的程序打开这个图片．用shell
如:
Shell "C:\WINDOWS\system32\mspaint.exe c:\1.bmp", vbMaximizedFocus
===================================================================
下面这个是将一个图片缩小成90*120的代码．
你可以先把图片缩小成合适的大小，然后再显示．
希望对你有用.

Private   Declare   Function   StretchBlt   Lib   "gdi32"   (ByVal   hdc   As   Long,   ByVal   x   As   Long,   ByVal   y   As   Long,   ByVal   nWidth   As   Long,   ByVal   nHeight   As   Long,   ByVal   hSrcDC   As   Long,   ByVal   xSrc   As   Long,   ByVal   ySrc   As   Long,   ByVal   nSrcWidth   As   Long,   ByVal   nSrcHeight   As   Long,   ByVal   dwRop   As   Long)   As   Long   
  Private   Declare   Function   SetStretchBltMode   Lib   "gdi32"   (ByVal   hdc   As   Long,   ByVal   nStretchMode   As   Long)   As   Long   
   
  Const   HALFTONE   =   4   
   
  Private   Sub   Command1_Click()   
  On   Error   Resume   Next   
  CommonDialog1.ShowOpen   
  If   CommonDialog1.FileName   <>   ""   Then   
        Picture1.Picture   =   LoadPicture(CommonDialog1.FileName)   
  End   If   
  End   Sub   
   
  Private   Sub   Command2_Click()   
  Picture2.Cls   
  SetStretchBltMode   Picture2.hdc,   HALFTONE   
  StretchBlt   Picture2.hdc,   0,   0,   90,   120,   Picture1.hdc,   0,   0,   Picture1.ScaleWidth,   Picture1.ScaleHeight,   vbSrcCopy   
  End   Sub   
   
  Private   Sub   Command3_Click()   
  On   Error   Resume   Next   
  CommonDialog1.ShowSave   
  If   CommonDialog1.FileName   <>   ""   Then   
      SavePicture   Picture2.Image,   CommonDialog1.FileName   
  End   If   
  End   Sub   
   
  Private   Sub   Form_Load()   
  Picture1.ScaleMode   =   3   
  Picture1.AutoSize   =   True   
  Picture1.AutoRedraw   =   True   
  Picture2.AutoRedraw   =   True   
  Picture2.ScaleMode   =   3   
  Command1.Caption   =   "打开图片"   
  Command2.Caption   =   "转换"   
  Command3.Caption   =   "保存"   
  End   Sub