COLOCANDO ROLON NO VB6 É POSSIVEL??

  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

   [ô]AutoScroll = True
   
   iAlturaFormulario = 30000
   iExibeAltura = 8000

   Me.Height = iExibeAltura

   With VScroll1
      .Height = Me.ScaleHeight
      .Min = 0
       .Max = iAlturaFormulario - iExibeAltura
       .SmallChange = Screen.TwipsPerPixelY * 10
      .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