我先不管怎么拖动画圆了，先画两个现成的圆，我写了这段代码，可以实现在一个区域内点一下可以画出一条直线，但怎么写可以把这个区域一这样画线的方式填充好，我试着谢了好几次都不行，前辈帮我补充一下
Dim rgbColor As String
Dim dr As Single
Dim dg As Single
Dim db As Single
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    rgbColor = Hex(Me.Point(x, y))
    rgbColor = Change2RGB(rgbColor)
    Call printline(x, y)
   
End Sub



Private Sub Form_paint()
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Circle (2000, 2000), 1000, RGB(0, 0, 0)
    Circle (2800, 2800), 1000, RGB(0, 0, 0)
End Sub


Private Function printline(x As Single, y As Single)
   
    Dim lx As Single
    Dim ly As Single
    Dim rx As Single
    Dim ry As Single
    Dim loopflag As Boolean
    loopflag = True
    lx = x - 1
    Do While loopflag
        If Change2RGB(Me.Point(lx, y)) <> rgbColor Then
            loopflag = False
        Else
            lx = lx - 1
        End If
    Loop
   
    loopflag = True
    rx = x + 1
    Do While loopflag
        If Change2RGB(Me.Point(rx, y)) <> rgbColor Then
            loopflag = False
        Else
            rx = rx + 1
        End If
    Loop
    Me.Line (lx, y)-(rx, y), RGB(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text))
End Function

Private Function Change2RGB(c As String)
    Select Case Len(c)
        Case 1: Change2RGB = "00000" & c
        Case 2: Change2RGB = "0000" & c
        Case 3: Change2RGB = "000" & c
        Case 4: Change2RGB = "00" & c
        Case 5: Change2RGB = "0" & c
    End Select
End Function

帮你调试弄了下，可以填充，有一定失败率，主要是因为缇和像素的原因（1像素=15缇，你必须每次坐标位置都是像素的整数倍才行）

Dim rgbColor As Long
Dim dr As Single
Dim dg As Single
Dim db As Single
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    rgbColor = Me.Point(x, y)
    printline x, y
End Sub

Private Sub Form_paint()
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Circle (2000, 2000), 1000, RGB(0, 0, 0)
    Circle (2800, 2800), 1000, RGB(0, 0, 0)
End Sub


Private Function printline(x As Single, y As Single)
    '本函数被递归调用
    Dim lx As Single
    Dim ly As Single
    Dim rx As Single
    Dim ry As Single
    Dim loopflag As Boolean
    Dim i As Single, y1 As Single
    If Me.Point(x, y) <> rgbColor Then Exit Function
    lx = x
    While Me.Point(lx, y) = rgbColor
      lx = lx - 15
    Wend
    lx = lx + 15
    rx = x
    While Me.Point(rx, y) = rgbColor
      rx = rx + 15
    Wend
    rx = rx - 5
    Me.Line (lx, y)-(rx, y), RGB(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text))
    y1 = y - 15
    For i = lx To rx Step 15
      If Me.Point(i, y1) = rgbColor Then
        printline i, y1
        Exit For
      End If
    Next
    y1 = y + 15
    For i = lx To rx Step 15
      If Me.Point(i, y1) = rgbColor Then
        printline i, y1
        Exit For
      End If
    Next
End Function

真的非常感谢前辈，麻烦你了

你这种算法只能填规则图形，如果非规则图形就会填不满，完整填充算法应该是我10楼的代码。

真的很感谢前辈