Dim TempPic as IPictureDispSet TempPic=LoadPicture(……)For i=0 to Me.ScaleHeight Step Me.ScaleY(TempPic.Height, vbHimetric, Me.ScaleMode) For J=0 to Me.ScaleWidth Step Me.ScaleX(TempPic.Width, vbHimetric, Me.ScaleMode) Me.PaintPicture TempPic,J,I Next J Next I
For J=0 to Me.ScaleWidth Step Me.ScaleX(TempPic.Width, vbHimetric, Me.ScaleMode)
Me.PaintPicture TempPic,J,I
Next J
Next I