docs-desktop/dotnet-desktop-guide/net/wpf/properties/snippets/how-to-implement-a-dependency-property/vb/MainWindow.xaml.vb

Namespace CodeSampleVb
    Partial Public Class MainWindow
        Inherits Window

        Public Sub New()
            InitializeComponent()
        End Sub

        ' <DefineDependencyProperty>
        Public Class Aquarium
            Inherits DependencyObject

            Public Shared ReadOnly HasFishProperty As DependencyProperty =
            DependencyProperty.Register(
                name:="HasFish",
                propertyType:=GetType(Boolean),
                ownerType:=GetType(Aquarium),
                typeMetadata:=New FrameworkPropertyMetadata(defaultValue:=False))

            Public Property HasFish As Boolean
                Get
                    Return GetValue(HasFishProperty)
                End Get
                Set(value As Boolean)
                    SetValue(HasFishProperty, value)
                End Set
            End Property

        End Class
        ' </DefineDependencyProperty>
    End Class
End Namespace