Private Sub UserSessionSwitch(ByVal sender As Object, ByVal e As SessionSwitchEventArgs) Application.Exit() End Sub