Sub Podgonka_dobavkoy_po_odnomu()
Static currentVisibleCount As Long 'помнит кол-во видимых строк
Dim maxScreenVisibleCount As Integer
maxScreenVisibleCount = 60 'чтоб за экран не вылезало задать самому на свое усмотрение
With Me.ListBox1
    If .Height < 6 Then currentVisibleCount = 0 'начальные условия
    If currentVisibleCount >= maxScreenVisibleCount Then Exit Sub
    If currentVisibleCount < .ListCount _
        Then currentVisibleCount = currentVisibleCount + 1 Else Exit Sub
    .IntegralHeight = False 'отключаем подгонку, чтоб при включении произошло событие
    .Height = .Height + 15 '15 зависит от размера шрифта, но держит широкий диапазон
    .IntegralHeight = True 'включаем, но подгонка произойдет после окончания процедуры
    Me.Height = .Height + 70
    Me.CommandButton1.Top = .Height + 10
    Me.CommandButton2.Top = .Height + 10
End With
End Sub

Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Podgonka_dobavkoy_po_odnomu
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Podgonka_dobavkoy_po_odnomu
End Sub