Dim drawingAttributes1 As New DrawingAttributes()
drawingAttributes1.Color = Colors.Green

Dim stylusPoint1 As StylusPoint = New StylusPoint(100, 100)
Dim stylusPoint2 As StylusPoint = New StylusPoint(100, 200)
Dim stylusPoint3 As StylusPoint = New StylusPoint(200, 200)
Dim stylusPoint4 As StylusPoint = New StylusPoint(200, 100)
Dim stylusPoint5 As StylusPoint = New StylusPoint(100, 100)

Dim points() As StylusPoint = {stylusPoint1, stylusPoint2, _
                    stylusPoint3, stylusPoint4, stylusPoint1}

Dim pointCollection As New StylusPointCollection(points)

Dim NewStroke As Stroke = New Stroke(pointCollection, drawingAttributes1)

myInkPresenter.Strokes.Add(NewStroke)

DrawingAttributes drawingAttributes1 = new DrawingAttributes();
drawingAttributes1.Color = Colors.Green;

StylusPoint stylusPoint1 = new StylusPoint(100, 100);
StylusPoint stylusPoint2 = new StylusPoint(100, 200);
StylusPoint stylusPoint3 = new StylusPoint(200, 200);
StylusPoint stylusPoint4 = new StylusPoint(200, 100);
StylusPoint stylusPoint5 = new StylusPoint(100, 100);

StylusPointCollection points = new StylusPointCollection(
    new StylusPoint[] { stylusPoint1, stylusPoint2, stylusPoint3, 
                        stylusPoint4, stylusPoint5 });

Stroke newStroke = new Stroke(points, drawingAttributes1);

myInkPresenter.Strokes.Add(newStroke);