[Anas Mahmoud]

السبب هو انشاءك ليبلات وهي فكرة ليست جيدة 

يمكنك بكل سهولة رسم دائرة بدون الحاجة لانشاء ليبلات عن طريق FillEllipse

السبب الثاني هو استخدامك Cursor في تحديد مكان الضغط وهذا ليس دقيق اطلاقا ، يمكنك استخدام حدث MouseDown للرسم :

كود :

dim p1 as new point(0,0)
dim p2 as new point(0,0)
  Private Sub Form1_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Form1.MouseUp

  If clic = 1 Then
g.FillEllipse(Brushes.Red,e.x - 10 , e.y - 10 , 20 ,20)
p1.x = e.x
p1.y = e.y
Label1.Text = e.x & " _ " & e.y
clic += 1

ElseIf clic = 2 Then
g.FillEllipse(Brushes.Red,e.x - 10 , e.y - 10 , 20 ,20)
p2.x = e.x
p2.y = e.y
Label2.Text = e.x & " _ " & e.y
g.DrawLine(Pens.Red, p1, p2)
clic = 1
end if
end sub

لم اقم بتجريبه ولكن ان شاء الله يعمل