colega faça o seguinte copie o código abaixo e cole em um bloco de notas
depois salve como Form1.frm
e veja como funciona
VERSION 5.00
Begin VB.Form Form1
ClientHeight = 8775
ClientLeft = 60
ClientTop = 450
ClientWidth = 10875
ScaleHeight = 8775
ScaleWidth = 10875
Begin VB.HScrollBar hscHorizontal
Height = 375
Left = 600
TabIndex = 2
Top = 8040
Width = 3015
End
Begin VB.VScrollBar vscVertical
Height = 7935
Left = 10200
TabIndex = 1
Top = 240
Width = 495
End
Begin VB.PictureBox picContainer
BackColor = &H8000000C&
Height = 7695
Left = 360
ScaleHeight = 7635
ScaleWidth = 9555
TabIndex = 0
Top = 240
Width = 9615
Begin VB.ListBox picScroll
Appearance = 0 'Flat
Height = 16800
Left = 1680
TabIndex = 3
Top = 960
Width = 11906
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
With vscVertical
.Min = -300
.LargeChange = 600
.SmallChange = 1200
.Value = .Min
End With
With hscHorizontal
.Min = -300
.LargeChange = 600
.SmallChange = 1200
.Value = .Min
End With
End Sub
Private Sub Form_Resize()
If WindowState = vbMinimized Then Exit Sub
On Local Error Resume Next
picContainer.Move 0, 750, (ScaleWidth - vscVertical.Width), (ScaleHeight - hscHorizontal.Height) - 750
With vscVertical
.Move picContainer.ScaleWidth, 750, 240, picContainer.ScaleHeight
.Max = ((picScroll.Height + 300) - picContainer.ScaleHeight)
End With
If picContainer.Width > picScroll.Width Then
hscHorizontal.Enabled = False
Else
hscHorizontal.Enabled = True
End If
With hscHorizontal
.Move 0, picContainer.Height + 750, picContainer.ScaleWidth, 240
.Max = ((picScroll.Width + 300) - picContainer.ScaleWidth)
End With
Err.Clear
End Sub
Private Sub vscVertical_Change()
picScroll.Top = -(vscVertical.Value)
End Sub
Private Sub vscVertical_Scroll()
picScroll.Top = -(vscVertical.Value)
End Sub
Private Sub hscHorizontal_Change()
picScroll.Left = -(hscHorizontal.Value)
End Sub
Private Sub hscHorizontal_Scroll()
picScroll.Left = -(hscHorizontal.Value)
End Sub
