چرا این قسمت جواب نمیده؟؟؟؟؟؟
Private Sub Picmain_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Picmain.MouseMove
x = e.X
y = e.Y
Dim NBitmap As New Bitmap(Picmain.Width, Picmain.Height)
Dim GPS As Graphics = Graphics.FromImage(NBitmap)
If e.Button = Windows.Forms.MouseButtons.Left Then
GPS.DrawLine(Pens.Black, x, y, newx, newy)
End If
newx = e.X
newy = e.Y
End Sub