Public Class BrokenBinding

#Region " Declarations "

    Private _strControlName As String = String.Empty
    Private _strControlTypeName As String = String.Empty
    Private _strPath As String = String.Empty
    Private _strPropertyName As String = String.Empty

#End Region

#Region " Properties "

    Public ReadOnly Property ControlName() As String
        Get

            If String.IsNullOrEmpty(_strControlName) Then
                Return "(none)"

            Else
                Return _strControlName
            End If

        End Get
    End Property

    Public ReadOnly Property ControlTypeName() As String
        Get
            Return _strControlTypeName
        End Get
    End Property

    Public ReadOnly Property Path() As String
        Get
            Return _strPath
        End Get
    End Property

    Public ReadOnly Property PropertyName() As String
        Get
            Return _strPropertyName
        End Get
    End Property

#End Region

#Region " Constructor "

    Public Sub New(ByVal strControlName As String, ByVal strControlTypeName As String, ByVal strPropertyName As String, ByVal strPath As String)
        _strControlName = strControlName
        _strControlTypeName = strControlTypeName
        _strPropertyName = strPropertyName
        _strPath = strPath
    End Sub

#End Region

#Region " Methods "

    Public Overrides Function ToString() As String
        Return String.Format("Control Name: {0}, Type: {1}, Property: {2}, Path: {3}", Me.ControlName, Me.ControlTypeName, Me.PropertyName, Me.Path)
    End Function

#End Region

End Class