Add article, code projects, toc, and redirects (#1178)

Co-authored-by: Andy (Steve) De George <[email protected]>

dotnet-desktop-guide/net/wpf/properties/snippets/attached-properties-overview/vb/MainWindow.xaml.vb

@@ -0,0 +1,55 @@
+Namespace CodeSampleVb
+
+    ' <summary>
+    ' Interaction logic for MainWindow.xaml.
+    ' </summary>
+    Partial Public Class MainWindow
+        Inherits Window
+
+        Public Sub New()
+            InitializeComponent()
+
+            SetAttachedPropertyInCode()
+        End Sub
+
+        Public Shared Sub SetAttachedPropertyInCode()
+            '<SetAttachedPropertyInCode>
+            Dim myDockPanel As DockPanel = New DockPanel()
+            Dim myTextBox As TextBox = New TextBox()
+            myTextBox.Text = "Enter text"
+
+            ' Add child element to the DockPanel.
+            myDockPanel.Children.Add(myTextBox)
+
+            ' Set the attached property value.
+            DockPanel.SetDock(myTextBox, Dock.Top)
+            '</SetAttachedPropertyInCode>
+        End Sub
+
+    End Class
+
+    '<RegisterAttachedProperty>
+    Public Class Aquarium
+        Inherits DependencyObject
+
+        ' Register an attached dependency property with the specified
+        ' property name, property type, owner type, and property metadata.
+        Public Shared ReadOnly HasFishProperty As DependencyProperty =
+            DependencyProperty.RegisterAttached("HasFish", GetType(Boolean), GetType(Aquarium),
+                New FrameworkPropertyMetadata(defaultValue:=False,
+                    flags:=FrameworkPropertyMetadataOptions.AffectsRender))
+
+        ' Declare a get accessor method.
+        Public Shared Function GetHasFish(target As UIElement) As Boolean
+            Return target.GetValue(HasFishProperty)
+        End Function
+
+        ' Declare a set accessor method.
+        Public Shared Sub SetHasFish(target As UIElement, value As Boolean)
+            target.SetValue(HasFishProperty, value)
+        End Sub
+
+    End Class
+    '</RegisterAttachedProperty>
+
+End Namespace