--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Glimpse/Model/BrokenBinding.vb	Sat Apr 21 19:20:28 2012 +0100
@@ -0,0 +1,67 @@
+
+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