Как выгрузить программу без ошибок? - VB

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

Раньше я просто закрывал программу 'крестиком' Потом, когда к проекту добавились некоторые контролы стали возникать ошибки при выгрузке программы. И тогда я в событии unload поставил end. Помогло. А сейчас при добавлении ещё одного контрола, при выгрузки программы возникает похожая ошибка, что была до end. Я где-то видел универсальный код выгрузки программы, но сейчас не могу найти.

Решение задачи: «Как выгрузить программу без ошибок?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Form_Unload(Cancel As Integer) 
  Dim frm As Form, ctl As Control, obj As Object 
  UnHookForm Me 
  Call Shell_NotifyIcon(NIM_DELETE, nfIconData) 
  On Error Resume Next 
  For Each frm In Forms 
    For Each ctl In frm.Controls 
      Set ctl = Nothing 
    Next ctl 
    For Each obj In frm.Objects 
      Set obj = Nothing 
    Next obj 
    Unload frm 
    Set frm = Nothing 
  Next frm 
End Sub