Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
        mnuexit_Click
        DoEvents
        End
End Sub
 
Private Sub mnuexit_Click()
    If CloseOpenedFrames() = True Then
        Proxy.PROXY_SAVE
        dat.INIT_SAVE
        Shell_NotifyIcon NIM_DELETE, nid
        DoEvents
        End
    Else
        Zeige "Sie sollten vorher alles schließen."
    End If
End Sub