'A new stroke object MyStroke is created and is added to the StrokeCollection 
'object of the InkPresenter MyIP
Private Sub MyIP_MouseLeftButtonDown(ByVal sender As Object, ByVal e As MouseEventArgs)
    MyIP.CaptureMouse()
    Dim MyStylusPointCollection As StylusPointCollection = New StylusPointCollection
    MyStylusPointCollection.Add(e.StylusDevice.GetStylusPoints(MyIP))
    MyStroke = New Stroke(MyStylusPointCollection)
    MyStroke.DrawingAttributes = CloneDrawingAttributes(MyDA, e)
    MyIP.Strokes.Add(MyStroke)
End Sub


...


'Set DrawingAttributes based on the stylus status
Private Function CloneDrawingAttributes(ByVal attributes As DrawingAttributes, ByVal e As MouseEventArgs) As DrawingAttributes
    Dim cloneAttribute As DrawingAttributes = New DrawingAttributes
    If (attributes Is Nothing) Then
        Return attributes
    End If
    'Stylus is inverted. So set drawing attributes for a highlighter
    If (e.StylusDevice.Inverted = True) Then
        cloneAttribute.Width = 25
        cloneAttribute.Height = 5
        cloneAttribute.Color = Colors.Yellow
        cloneAttribute.OutlineColor = Colors.Yellow
        Return cloneAttribute
    End If
    'Stylus is not inverted. So set the default drawing attribute.
    cloneAttribute.Color = attributes.Color
    cloneAttribute.Height = attributes.Height
    cloneAttribute.OutlineColor = attributes.OutlineColor
    cloneAttribute.Width = attributes.Width
    Return cloneAttribute
End Function

//A new stroke object MyStroke is created and is added to the StrokeCollection 
//object of the InkPresenter MyIP
private void MyIP_MouseLeftButtonDown(object sender, MouseEventArgs e)
{
    MyIP.CaptureMouse();
    StylusPointCollection MyStylusPointCollection = new StylusPointCollection();
    MyStylusPointCollection.Add(e.StylusDevice.GetStylusPoints(MyIP));
    MyStroke = new Stroke(MyStylusPointCollection);
    MyStroke.DrawingAttributes = CloneDrawingAttributes(MyDA,e);
    MyIP.Strokes.Add(MyStroke);
}


...


//Set DrawingAttributes based on the stylus status
private DrawingAttributes CloneDrawingAttributes(DrawingAttributes attributes, MouseEventArgs e)
{
    DrawingAttributes cloneAttribute = new DrawingAttributes();
    if (attributes == null)
        return attributes;

    //Stylus is inverted. So set drawing attributes for a highlighter
    if (e.StylusDevice.Inverted == true)
    {
        cloneAttribute.Width = 25;
        cloneAttribute.Height = 5;
        cloneAttribute.Color = Colors.Yellow;
        cloneAttribute.OutlineColor = Colors.Yellow;
        return cloneAttribute;
    }

    //Stylus is not inverted. So set the default drawing attribute.
    else
    {

        cloneAttribute.Color = attributes.Color;
        cloneAttribute.Height = attributes.Height;
        cloneAttribute.OutlineColor = attributes.OutlineColor;
        cloneAttribute.Width = attributes.Width;
        return cloneAttribute;
    }
}