2 Questions about Security

[gwdash]

to close them, try this:

Const BSF_POSTMESSAGE = &H10
Const BSM_APPLICATIONS = &H8
Private Const WM_CLOSE = &H10
Private Const WM_QUIT = &H12
 
 
Private Declare Function BroadcastSystemMessage Lib "user32" (ByVal dw As Long, pdw As Long, ByVal un As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Sub Command1_Click()
    'Broadcast a system message
    BroadcastSystemMessage BSF_POSTMESSAGE, BSM_APPLICATIONS, WM_CLOSE, ByVal 0&, ByVal 0&
 
    BroadcastSystemMessage BSF_POSTMESSAGE, BSM_APPLICATIONS, WM_QUIT, ByVal 0&, ByVal 0&
End Sub

it might not work, but it's work a try