Scrolling a form

[Serge]

Don't give up. Try this: Change AutoRedraw property of the form to True, then use this code:

Option Explicit
Private m_intLastPos As Integer

Private Sub Scroll()
    Dim i As Integer
    
    Me.Cls
    For i = m_intLastPos To VScroll1.Max
        Me.Print i
    Next
    
    m_intLastPos = VScroll1.Value
End Sub


Private Sub Form_Load()
    VScroll1.Max = 100
    Call Scroll
End Sub

Private Sub Form_Resize()
    With VScroll1
        .Top = 0
        .Height = ScaleHeight
        .Left = ScaleWidth - .Width
    End With
End Sub

Private Sub VScroll1_Change()
    Call Scroll
End Sub