How to close active session?

[tolearnattach]

when i am trying to close active session, it gives me a warning message asking if I really want to close session.

can someone tell me how to close the session without warning?

Set System = CreateObject("EXTRA.System")
Set Sess = System.ActiveSession
msgbox System.Sessions.Count
For i=1 to System.Sessions.Count
Set Sess=System.Sessions.Item(i)
msgbox Sess.Name
If Not ( Sess.Name = "abc") Then
Sess.Close
End If
Next

I want to close only one out of open active sessions, but it is throwing a warning message with "ok" and "Cancel" buttons. how to handle it?