控制圆内线

Question

我想做什么：

假设我用

>鼠标持有

当我移动线时，线不会从圆圈范围内移出。

我不想做的事情：

如您所见，该线正在从圆圈范围内移动。

我想画线并让他进入我的圈子当我用鼠标抓住他时。

我该怎么做picture1？

这是代码：

Dim g As Graphics
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
    Dim pt As New Drawing.Point
    pt.X = e.X
    pt.Y = e.Y
    g = Me.CreateGraphics
    Dim myPen = New Pen(Color.Red)
    myPen.Width = 1
    g.Clear(Color.White)
    g.DrawLine(myPen, 100, 100, pt.X, pt.Y)

End Sub