Automation Error при сворачивании окна с DirectDraw - VB

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

Люди, помогите избавится от ошибки. Использую DirectDraw, все работает, но только лишь я сворачиваю окно, так сразу выскакивает Automation Error. Пытаюсь не прорисовывать, когда WindowState=Minimized, но ошибка появляется в любом случае, когда я разворачиваю окно обратно.

Решение задачи: «Automation Error при сворачивании окна с DirectDraw»

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

                            Public Sub DestroyDD()
 
    Call dd.RestoreDisplayMode
    Call dd.SetCooperativeLevel(0, DDSCL_NORMAL)
    
    Set ddsBack = Nothing
    Set ddsPrimary = Nothing
    Set dd = Nothing
End Sub
                        