Formulário

[frata]

Prezados colegas:

Uma vez mais recorro aos senhores para me tirarem uma dúvida.

Preciso que o formulário role usando uma barra de rolagem e

exiba uma figura.

Acontece que a rolagem máxima não é suficiente para exibir toda

a imagem e fica faltando mostrar o finalzinho da mesma.

Não sei como fazer para que role e mostra a imagem toda.

Abaixo segue o código que estou usando.

Obrigado a todos. Frata.

Option Explicit
Dim PosAnterior As Integer

Private Sub cmdQuit_Click()
Unload Me
End Sub

Private Sub Form_Load()
Dim iAlturaFormulario As Integer
Dim iExibeAltura As Integer

iAlturaFormulario = 32000
iExibeAltura = 5800

Me.Height = iExibeAltura

With VScroll1
.Height = Me.ScaleHeight
.Min = 0
.Max = iAlturaFormulario - iExibeAltura
.SmallChange = Screen.TwipsPerPixelY * 800
.LargeChange = .SmallChange
End With
End Sub

Private Sub pRolaFormulario()
Dim ctl As Control

For Each ctl In Me.Controls
If Not (TypeOf ctl Is VScrollBar) And Not (TypeOf ctl Is CommandButton) Then
ctl.Top = ctl.Top + PosAnterior - VScroll1.Value
End If
Next

PosAnterior = VScroll1.Value
End Sub

Private Sub VScroll1_Change()
Call pRolaFormulario
End Sub

Private Sub VScroll1_Scroll()
Call pRolaFormulario
End Sub

[Jhonas]

esses valores limitam o formulario

iAlturaFormulario = 32000
iExibeAltura = 5800

abraço