可以这样,放两个picturebox,第2-5设置缩小后的位置和大小
StretchBlt Picture1.hdc, ZoomLeft, ZoomTop, ZoomWidth, ZoomHeight, Picture2.hdc, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, &HCC0020
Picture2.Visible = False
StretchBlt Picture1.hdc, ZoomLeft, ZoomTop, ZoomWidth, ZoomHeight, Picture2.hdc, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, &HCC0020
Picture2.Visible = False
Set BackMap=LoadPicture(……)
End SubPrivate Sub Form_Paint()
me.Paint BackMap,0,0,Me.ScaleWidth,Me.ScaleHeight
End Sub