Coloque 2 pictures sendo a segunda picture (PICTURE2) dentro da Picture1. Coloquei 1 botão para "inicializar" as variáveis e carregar a figura. Agora segue o código:
Dim dConstV As Double
Dim dConstH As Double
Private Sub Command1_Click()
Picture2.Picture = LoadPicture("C:\figura.jpg")
Picture2.AutoSize = True
dConstV = Picture2.Height / 100
dConstH = Picture2.Width / 100
VS.Min = 0
VS.Max = 100
VS.SmallChange = 1
VS.LargeChange = 10
HS.Min = 0
HS.Max = 100
HS.SmallChange = 1
HS.LargeChange = 10
End Sub
Private Sub HS_Change()
Picture2.Left = HS.Value * dConstH * -1
End Sub
Private Sub VS_Change()
Picture2.Top = VS.Value * dConstV * -1
End Sub
No caso eu usei os valores para as barras de rolagem de 0 a 100 como se fosse porcentagem ok?
espero que ajude
at+