Вывод в ListBox с прокруткой - VB

Формулировка задачи:

Есть код программы. Хочу чтоб ответ выводился в ListBox, с прокруткой. Но при нажатии кнопки решить ничего не происходит. В Label всё прекрасно выводит, но там нет прокрутки, а нужно именно с ней.

Private Sub CommandButton4_Click()
CommandButton4.Visible = False
End Sub
 
Private Sub CommandButton2_Click()
Dim n As Integer, A() As Integer
Dim i As Integer, s As String, ss As String
n = TextBox3
ReDim A(1 To n)
    Randomize
    For i = 1 To n
         A(i) = Int(Rnd * 100 + 1)
         If Sqr(A(i)) = Int(Sqr(A(i))) Then ss = ss & A(i) & "   "
         s = s & CStr(A(i)) & "   "
    Next i
        If ss = "" Then
         ListBox1 = "Г‚ Г°ГїГ¤Гі Г·ГЁГ±ГҐГ«" & vbCrLf & s & _
                 vbCrLf & "ГЇГ®Г«Г*Г»Гµ ГЄГўГ*Г¤Г°Г*ГІГ®Гў Г*ГҐГІ"
    ElseIf UBound(Split(ss, "   ")) = 1 Then
         ListBox1 = "Г‚ Г°ГїГ¤Гі Г·ГЁГ±ГҐГ«" & vbCrLf & s & _
                 vbCrLf & "ГЇГ®Г«Г*Г»Г¬ ГЄГўГ*Г¤Г°Г*ГІГ®Г¬ ГїГўГ«ГїГҐГІГ±Гї Г·ГЁГ±Г«Г®" & _
                 vbCrLf & ss
    Else
         ListBox1 = "Г‚ Г°ГїГ¤Гі Г·ГЁГ±ГҐГ«" & vbCrLf & s & _
                 vbCrLf & "ГЇГ®Г«Г*Г»Г¬ГЁ ГЄГўГ*Г¤Г°Г*ГІГ*Г¬ГЁ ГїГўГ«ГїГѕГІГ±Гї Г·ГЁГ±Г«Г*" & _
                 vbCrLf & ss
    
    End If
End Sub

Решение задачи: «Вывод в ListBox с прокруткой»

textual
                            Листинг программы 
                        

                            Private Sub CommandButton2_Click()
Dim A() As Integer, n As Integer, i As Integer
n =  TextBox3
ReDim A(1 To n)
    ListBox1.Clear
    ListBox1.AddItem "Последовательность:"
    Randomize
    For i = 1 To n
         A(i) = Int(Rnd * 100 + 1)
         ListBox1.AddItem A(i)
    Next i
    ListBox1.AddItem "Результат:"
    For i = 1 To n
         If Sqr(A(i)) = Int(Sqr(A(i))) Then ListBox1.AddItem A(i)
    Next i
    If ListBox1.ListCount = n + 2 Then ListBox1.AddItem "Квадратов нет"
End Sub
                        