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);