Dim Bei As Single '缩放倍数

Private Sub PicMagnifying(j As Single) 'Pic1：前台显示；Pic2：后台源图
On Error GoTo 100
Dim w As Single, h As Single
Bei = Bei + j
w = Pic2.Width * Bei: h = Pic2.Height * Bei
Pic1.Width = w: Pic1.Height = h
Pic1.PaintPicture Pic2, 0, 0, w, h
Me.Caption = "尺寸：" & Round(w) & "×" & Round(h) & "　放大：" & Format(Bei, "##0.##") & "倍"
100
End Sub