Public Shared ReadOnly AdrFoundColorProperty As DependencyProperty =
    DependencyProperty.Register("AdrFoundColor",
                                GetType(Bursh),
                                GetType(Model))

Public Property AdrFoundColor() As Boolean
    Get
        Return CBool(GetValue(AdrFoundColorProperty))
    End Get
    Set(ByVal value As Boolean)
        SetValue(AdrFoundColorProperty, value)
    End Set
End Property