How to customize line connector's decorator in Diagram?

OrthogonalConnector link = new OrthogonalConnector(rec1.PinPoint, rec2.PinPoint,
MeasureUnits.Pixel);
link.HeadDecorator.DecoratorShape = DecoratorShape.Filled45Arrow;
link.TailDecorator.Load(this.CreateCustomDecorator());
this.diagram1.Model.AppendChild(link);
private GraphicsPath CreateCustomDecorator()
{
GraphicsPath gpPath = new GraphicsPath();
gpPath.AddEllipse(0, 0, 10, 20);
return gpPath;
}
 

Dim link As OrthogonalConnector = New OrthogonalConnector(rec1.PinPoint, rec2.PinPoint,
MeasureUnits.Pixel)
link.HeadDecorator.DecoratorShape = DecoratorShape.Filled45Arrow
link.TailDecorator.Load(Me.CreateCustomDecorator())
Me.diagram1.Model.AppendChild(link)
Private Function CreateCustomDecorator() As GraphicsPath
Dim gpPath As GraphicsPath = New GraphicsPath()
gpPath.AddEllipse(0, 0, 10, 20)
Return gpPath
End Function