*para mover imagem:
Primeiro crie uma imagebox dentro de uma picturebox, coloque a Picture1.AutoRedraw=true , Image1.Stretch=true e Image1.MousePointer=Size
No form:
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Image1.Left = Image1.Left - (Image1.Width / 2) + X
Image1.Top = Image1.Top - (Image1.Height / 2) + Y
End If
End Sub
*para dar Zoom:
-Zoom:
Private Sub Command1_Click()
On Error Resume Next
Image1.Width = Image1.Width - 100
Image1.Height = Image1.Height - 100
End Sub
+Zoom:
Private Sub Command2_Click()
On Error Resume Next
Image1.Width = Image1.Width + 100
Image1.Height = Image1.Height + 100
End Sub
Té mais...
