Private Sub Form_Load()
Me.ScaleMode = 3
With Pic
.ScaleMode = 3
.Width = 100
.Height = 100
.AutoRedraw = True
Me.Visible = True
.PaintPicture LoadPicture("D:\你的图片.jpg"), 0, 0
MsgBox "经过若干操作"
.Width = 50
.Height = 50
SavePicture .Image, "d:\out.bmp"
End With
End Sub
