Private Sub Window1_Loaded( _

  ByVal sender As Object, _

  ByVal e As System.Windows.RoutedEventArgs _

  ) Handles Me.Loaded

    inkCanvas1.EditingMode = InkCanvasEditingMode.None

End Sub



Private mouseSpc As StylusPointCollection



Private Sub inkCanvas1_MouseDown( _

  ByVal sender As System.Object, _

  ByVal e As System.Windows.Input.MouseButtonEventArgs _

  ) Handles inkCanvas1.MouseDown

    mouseSpc = New StylusPointCollection()

    Dim p As Point = e.GetPosition(inkCanvas1)

    mouseSpc.Add(New StylusPoint(p.X, p.Y))

End Sub



Private Sub inkCanvas1_MouseUp( _

  ByVal sender As Object, _

  ByVal e As System.Windows.Input.MouseButtonEventArgs _

  ) Handles inkCanvas1.MouseUp

    If mouseSpc IsNot Nothing Then

        Dim p As Point = e.GetPosition(inkCanvas1)

        mouseSpc.Add(New StylusPoint(p.X, p.Y))

        inkCanvas1.Strokes.Add(New System.Windows.Ink.Stroke(mouseSpc))

        mouseSpc = Nothing

    End If

End Sub