Vb.net drawing implementation code

<Window x: Class = "Animation. PathBasedAnimation"
Xmlns = "http://schemas.microsoft.com/winfx/2006/xaml/presentation"
Xmlns: x = "http://schemas.microsoft.com/winfx/2006/xaml"
Title = "PathBasedAnimation" Height = "381.6" Width = "521.6"
>
 

<Canvas Margin = "10">
<Image Name = "image">
<Image. Source>
<DrawingImage>
<DrawingImage. Drawing>
<GeometryDrawing Brush = "LightSteelBlue">
<GeometryDrawing. Geometry>
<GeometryGroup>
<Ellips tutorial eGeometry Center = "10, 10" RadiusX = "9" RadiusY = "4"/>
<EllipseGeometry Center = "10, 10" RadiusX = "4" RadiusY = "9"/>
</GeometryGroup>
</GeometryDrawing. Geometry>
<GeometryDrawing. Pen>
<Pen Thickness = "1" Brush = "Black"/>
</GeometryDrawing. Pen>
</GeometryDrawing>
</DrawingImage. Drawing>
</DrawingImage>
</Image. Source>
</Image>
</Canvas>
</Window>

Instance 2

<Window x: Class = "Drawing. Drawings"
Xmlns = "http://schemas.microsoft.com/winfx/2006/xaml/presentation"
Xmlns: x = "http://schemas.microsoft.com/winfx/2006/xaml"
Title = "Drawings" Height = "300" Width = "300">
<Window. Resources>
<GeometryDrawing x: Key = "Drawing" Brush = "Yellow">
<GeometryDrawing. Pen>
<Pen Brush = "Blue" Thickness = "3"> </Pen>
</GeometryDrawing. Pen>
<GeometryDrawing. Geometry>
<PathGeometry>
<PathFigure IsClosed = "True" StartPoint = "10,100">
<LineSegment Point = "100,100" type = "codeph" text = "/codeph"/>
<LineSegment Point = "100,50"/>
</PathFigure>
</PathGeometry>
</GeometryDrawing. Geometry>
</GeometryDrawing>
</Window. Resources>

<StackPanel Orientation = "Horizontal" Margin = "5">
<Button Width = "30" Height = "30">
<Image>
<Image. Source>
<DrawingImage Drawing = "{StaticResource Drawing}">
</DrawingImage>
</Image. Source>
</Image>
</Button>

</StackPanel>
</Window>