Как сделать программу не-закрываемой

Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("Эй! Юзер ..., только попробуй меня закрыть... ", 20, _
    "Не надо - ПЛИЗ!!!") = vbYes Then Else Cancel = 1
End Sub

Private Sub Form_Load()
    App.TaskVisible = False
End Sud

Option Explicit
 Private Declare Function RegisterServiceProcess Lib "kernel32.dll"  _
                          (ByVal dwProcessId As Long, ByVal dwType As Long) As Long
 Private Declare Function GetCurrentProcessId Lib "kernel32.dll" () As Long
 
 Private Sub toVisible()
      Call RegisterServiceProcess(GetCurrentProcessId, 0)
 End Sub
 
 Private Sub toInvisible()
      Call RegisterServiceProcess(GetCurrentProcessId, 1)
 End Sub

      FullPathAndFileName = App.Path
        If Right(App.Path,1) <> "\" Then FullPathAndFileName = FullPathAndFileName & "\"
        FullPathAndFileName = FullPathAndFileName & App.EXEName
 
        'Прописываем себя в реестр (FullPathAndFileName As String)
        UpdateKey HKEY_LOCAL_MACHINE, _
        "Software\Microsoft\windows\CurrentVersion\Run", _
        App.Title, FullPathAndFileName