Imports System.Drawing.Drawing2D
Public Class Form1
    Dim pt() As Point = {New Point(100, 400), New Point(250, 250), New Point( _
      400, 100)}
    Dim gp, gpath As New GraphicsPath
    Dim curpoint As Int32
    Dim ptsvisible As Boolean = True
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        curpoint = -1
        If ptsvisible AndAlso gpath.IsVisible(e.Location) Then
            For i As Int32 = 0 To 2
                If Math.Abs(e.X - pt(i).X) < 6 AndAlso Math.Abs(e.Y - pt(i).Y) _
                  < 6 Then
                    curpoint = i
                End If
            Next
        End If
        If e.Button = Windows.Forms.MouseButtons.Right Then
            ptsvisible = Not ptsvisible
            Me.Refresh()
        End If
    End Sub
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        e.Graphics.SmoothingMode = SmoothingMode.HighQuality
        If ptsvisible Then
            e.Graphics.DrawCurve(New Pen(Color.Yellow, 2), pt)
            gpath.Reset()
            For i As Int32 = 0 To 2
                gpath.AddEllipse(pt(i).X - 5, pt(i).Y - 5, 10, 10)
            Next
            e.Graphics.FillPath(Brushes.Red, gpath)
        Else
            Dim plist As New List(Of PointF)
            gp.Reset()
            gp.AddCurve(pt)
            plist.AddRange(gp.PathPoints)
            e.Graphics.DrawBezier(New Pen(Color.Red, 2), plist(0), plist(1), _
              plist(2), plist(3))
            e.Graphics.DrawBezier(New Pen(Color.Blue, 2), plist(3), plist(4), _
            plist(5), plist(6))
            For Each p As PointF In gp.PathPoints
                e.Graphics.FillEllipse(Brushes.Green, p.X - 4, p.Y - 4, 8, 8)
            Next
        End If
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.Text = "Demo Kurve"
        Me.SetStyle(ControlStyles.DoubleBuffer Or ControlStyles.UserPaint Or _
          ControlStyles.AllPaintingInWmPaint, True)
        Me.SetBounds(100, 100, 500, 500)
        Me.BackColor = Color.Black
    End Sub
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If ptsvisible AndAlso curpoint > -1 AndAlso e.Button = _
        Windows.Forms.MouseButtons.Left Then
            pt(curpoint) = New Point(e.X, e.Y)
            Me.Refresh()
        End If
    End Sub
End Class