VB关于图像的缩放

我做一个地图文件，要求缩放功能，用PictureBox做容器，Image装载地图，垂直水平滚动条，工具条放命令按钮，而且在地图上放标签数组用以定位。我的问题是Image可以按指定倍数缩放了，但是上面的Label不知怎么做到同步缩放，尤其是相对位置之间要相应拉开和拉进。（如果是滚动条就好办，因为移位相对位置不变，这个我已经实现），以下附代码，主要是 Toolbar1_ButtonClick 过程里面的，求高手帮忙哈！

Public Sub ReSize() '调整Image、PictureBox和滚动条之间的协调关系，已经实现。
HScroll1.Max = Image1.Width - Picture1.ScaleWidth
If Image1.Width < Picture1.ScaleWidth Then
HScroll1.Visible = False
Image1.Left = (Picture1.ScaleWidth - Image1.Width) / 2
Else
HScroll1.Visible = True
Image1.Left = Picture1.ScaleLeft
End If
VScroll1.Max = Image1.Height - Picture1.ScaleHeight
If Image1.Height < Picture1.ScaleHeight Then
VScroll1.Visible = False
Image1.Top = (Picture1.ScaleHeight - Image1.Height) / 2
Else
VScroll1.Visible = True
Image1.Top = Picture1.ScaleTop
End If
End Sub

Private Sub Form_

关于图像缩放处理的问题 VB编程：怎么使图像在移动中缩放？ 缩放不影响图像清晰的软件 在Photoshopo里“图像大小”的“缩放样式” 关于VB图像处理算法 VB怎么缩放图片？？？ VB 求缩放图片快的占用CPU少的!!! vb PictureBox载入图片的时候如何【自动缩放】？ 哪位大侠有C++或C的图像缩放的源程序啊？谢过 怎样实现Java键盘控制图像缩放