C#

  Dim mousePath As New System.Drawing.Drawing2D.GraphicsPath()<br />
   Dim SelectRect As New Rectangle()<br />
    Dim ps As New Point()<br />
    Dim pe As New Point()<br />
    Private Sub PictureBomcp1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pbImage.MouseDown<br />
        SelectRect.Width = 0<br />
        SelectRect.Height = 0<br />
        SelectRect.X = e.X<br />
        SelectRect.Y = e.Y<br />
        ps.X = e.X<br />
        ps.Y = e.Y<br />
        pe = ps<br />
        If e.Button = Windows.Forms.MouseButtons.Left Then<br />
            mousePath.StartFigure()<br />
        End If<br />
<br />
    End Sub<br />
<br />
    Private Sub PictureBomcp1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pbImage.MouseMove<br />
        If (e.Button = MouseButtons.Left) Then<br />
            Dim thisform As PictureBox = CType(sender, PictureBox)<br />
            Dim g As Graphics = thisform.CreateGraphics()<br />
            mousePath.AddLine(e.X, e.Y, e.X, e.Y)<br />
            g.DrawPath(New Pen(MyConstants._C, MyConstants._W), mousePath)<br />
        End If<br />
    End Sub<br />
<br />
    Private Sub PictureBomcp1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pbImage.MouseUp<br />
        Dim thisform As PictureBox = CType(sender, PictureBox)<br />
        Dim g As Graphics = thisform.CreateGraphics()<br />
        Dim p As New Pen(MyConstants._C, MyConstants._W)<br />
        g.DrawPath(New Pen(MyConstants._C, MyConstants._W), mousePath)<br />
        mousePath.Reset()<br />
        g.Dispose()<br />
    End Sub