معلومه مي خواي پيمايش يه نقشه رو بنويسي
براي Zoom
Private originalImage As Image = Nothing
Private currentImage As Image = MainImage.Image
Private zoomFactor AsDouble = 1
Private screenImageWidth AsInteger = 0
Private screenImageHeight AsInteger = 0
PrivateSub Zoom(ByVal factor AsDouble)
zoomFactor = factor
Dim sourceBitmap AsNew Bitmap(currentImage)
Dim destBitmap AsNew Bitmap(CInt(sourceBitmap.Width * factor), _
CInt(sourceBitmap.Height * factor))
Dim destGraphic As Graphics = Graphics.FromImage(destBitmap)
destGraphic.DrawImage(sourceBitmap, 0, 0, destBitmap.Width + 1, _
destBitmap.Height + 1)
screenImageWidth = destBitmap.Width
screenImageHeight = destBitmap.Height
'picture box
MainImage.Image = destBitmap
ZoomLabel.Text = "Zoom: " & zoomFactor * 100 & "%"
EndSub
از radiobutton.location.x و radiobutton.location.y استفاده كن يا
Radiobutton.loaction=new point(x,y)