Как внедрить вертикальный и/или горизонтальный Scroll

Option Explicit
Const Lists = 10, Btn = 3, btnW = 1200, btnH = 300, lstH = 2000
Dim WithEvents Cmm As CommandButton
Dim WithEvents Tmr As Timer
Dim WithEvents Lst As ListBox
Dim WithEvents InkEdit As VBControlExtender
Dim f&, s$
 
Sub Lst_Click()
    With Lst
        Controls("Cmm3").Caption = .List(.ListIndex)
        For f = 0 To .ListCount - 1
            If f = .ListIndex Then
                Set InkEdit = Controls("Ink" & f + 1)
                Form_Resize
            Else: Controls("Ink" & f + 1).Visible = 0
            End If
        Next
    End With
End Sub
 
Private Sub Cmm_Click()
    With Lst
        Select Case Cmm.Name
        Case "Cmm1": .ListIndex = .ListIndex - Abs(.ListIndex > 0): Lst_Click
        Case "Cmm2": .ListIndex = .ListIndex + Abs(.ListIndex < .ListCount - 1): Lst_Click
        Case "Cmm3"
            If .Visible = 0 Then
                 .Visible = 1: .ZOrder 0
            Else: .Visible = 0 'Спрятать список
            End If
        End Select
    End With
End Sub
 
Private Sub Form_Resize()
    On Error Resume Next
    With InkEdit
        .Move 0, btnH, Me.ScaleWidth, Me.ScaleHeight - btnH
        .Visible = 1:
    End With
End Sub
 
Private Sub Form_Load()
    Dim left&
    For f = 1 To Btn: s = "Cmm" & f
        With Controls.Add("vb.CommandButton", s): .Move left, 0, btnW, btnH
            .Caption = Choose(f, "<<Назад", "Вперед>>", ""): left = left + .Width: .Visible = 1
        End With
    Next
    For f = 1 To Lists
        With Controls.Add("INKED.InkEdit", "Ink" & f).object
            .Text = "": .BackColor = &HC0E0FF
        End With
    Next
    Set Lst = Controls.Add("vb.ListBox", "Lst")
    For f = 1 To Lists: Lst.AddItem "Cтр = " & f: Next
    With Controls(s): Lst.Move .left, .Height, .Width, lstH: End With
    Lst.ListIndex = 0: Lst_Click
    Me.Width = btnW * Btn * 2
    Set Tmr = Controls.Add("vb.Timer", "Tmr"): Tmr.Interval = 50
End Sub
 
Private Sub Tmr_Timer()
    If ActiveControl.Name Like "Cmm#" Then Set Cmm = ActiveControl
End Sub