Partial Public Class LoadExceptionViewer
    Inherits UserControl

    Public Sub New()
        InitializeComponent()
    End Sub

    Public Sub New(ByVal e As Exception, ByVal strSourceLocation As String)
        InitializeComponent()
        Me.txtSourceLocation.Text = String.Concat("Source Location: ", strSourceLocation)

        Dim ex As Exception = e

        While ex IsNot Nothing
            Me.lbExceptions.Items.Add(ex)
            ex = ex.InnerException
        End While

        If Me.lbExceptions.Items.Count > 0 Then
            Me.lbExceptions.SelectedIndex = 0
        End If

    End Sub

End Class