Inseri uma PictureBox em meu formulario e um controle VScrollBar e o seguinte código:

 

Private Sub VScroll1_Change()
Picture1.Top = -VScroll1.Value
End Sub

Private Sub VScroll1_Scroll()
Picture1.Top = -VScroll1.Value
End Sub

 

Só que em vez de rolar os dados dentro da PictureBox é a propria picture que este rolando no formulario. Defini as propriedades do VScrollBar da seguinte maneira:

 

LargeChange = 200

SmallChange = 200

Max = 4000

 

O que estou fazendo de errado.

 

Experimente colocar tua picturebox dentro de outra picturebox. Assim deve funcionar.

Obs. Não precisa modificar o código, ele está correto.

 

T+

Rinaldo

Valeu Rinaldo deu certo muito obrigado.

Olha ATS o Código é assim, Eu tb usei um commonDialog para selecionar as figura.

 

Private Sub Command1_Click()
    cm1.Filter = "Most Used pictures |*.bmp;*.jpg;*.gif|"
    cm1.Action = 2
If cm1.FileName = "" Then Exit Sub
    picTest.Picture = LoadPicture(cm1.FileName)

End Sub

Private Sub HScroll1_Change()
    HScroll1_Scroll
End Sub

Private Sub HScroll1_Scroll()
    picTest.Left = -HScroll1
End Sub

Private Sub picTest_Change()
If picTest.Width > Picture1.Width Then
    HScroll1.Enabled = True
    HScroll1.Max = picTest.Width - Picture1.Width
Else
    HScroll1.Max = 0
    HScroll1.Enabled = False
End If
    If picTest.Height > Picture1.Height Then
    VScroll1.Enabled = True
    VScroll1.Max = picTest.Height - Picture1.Height
Else
    VScroll1.Max = 0
    VScroll1.Enabled = False
End If
End Sub

Private Sub VScroll1_Change()
    VScroll1_Scroll
End Sub

Private Sub VScroll1_Scroll()
    picTest.Top = -VScroll1
End Sub

T+

Ricardo