If gblnAuthenticated Then Try Application.Run(New frmMain) Catch ex As Exception Dim errInfo As String errInfo = "Source: " + ex.Source.ToString + vbCrLf errInfo += vbCrLf errInfo += "Message: " + ex.Message.ToString + vbCrLf errInfo += vbCrLf errInfo += "Target: " + ex.TargetSite.ToString + vbCrLf errInfo += vbCrLf errInfo += "Stack Trace: " + vbCrLf errInfo += ex.StackTrace.ToString + vbCrLf 'show form advising user that an unexpected error has occured Dim frmErr As New frmError frmErr.ShowDialog() Try 'call function to log and E-Mail error details to LDS clsGeneral.fnLogError(errInfo, gblnAutoSendErrorReports) Catch e As Exception 'if an error occurs while logging the error - just ignore it End Try Finally Application.Exit() End Try End If