Private Sub mInkObject_CursorOutOfRange(ByVal sender As Object, ByVal e As InkCollectorCursorOutOfRangeEventArgs)
Using s As Strokes = mInkObject.Ink.Strokes
If s.Count > 0 Then
s(s.Count - 1).DrawingAttributes.Color = Color.Tomato
' redraw the ink canvas
panelInkCanvas.Invalidate()
End If
End Using
End Sub