Gif анимация

Private Sub CorrectSize(Optional mstb As Boolean = 1)
    Dim p#, h#, w#, m#, z#, it#, q# 'Extender.
    On Error Resume Next
    With MediaPlayer1
        If .ImageSourceWidth Then
            w = Extender.Width
            If TypeName(Parent) = "Workbook" And iniShow = False Then
                m = (ScaleWidth / w) * 5
                w = w * (100 / m)
                Extender.Width = w
            End If
 
            p = .ImageSourceWidth / .ImageSourceHeight
            z = 1: it = 10000
            Do
                While (w / z) > p: z = z + it: Wend
                it = it / 5
                While (w / z) < p: z = z - it: Wend
            Loop Until it < 0.00001
            Extender.Height = CSng(z)
        End If
        CorrectChild
    End With
End Sub

Private Sub UserControl_Hide()
    On Error Resume Next
    mnuStop_Click 'Остановить все запущенное
    GetSetData Vars, 0 'Сохраняем настройки
    Close 'Закрываем всё что открыто
    Set Vars = Nothing
    Unload Me
End Sub
 
Private Sub UserControl_Terminate()
    DestroyWindow hwnd 'Уничтожаем мой hwnd
End Sub