Close "Web-Client" window automatically

How can I close the "Web-Client" window automatically?

This can be done with following VBA code:

VBA Code:

'API Function
Public Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)
Public Sub CloseWebClient()
If thisProject.NetType = tpClient Then
If MsgBox("Do you really want to close the Web-Client?", vbYesNo, "ExitProcess") = vbYes Then
ExitProcess (0) 'close window
End If
End If
End Sub

This is a migrated post! Originally posted on 18.09.2007 by user herberto. Please be aware that information can be outdated.