Dim prex As Double, prey As Double

Private Sub Form_Load()
DrawState = False
End Sub

Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
DrawState = True
prex = X
prey = Y
End If
If Button = 2 Then
Circle (X, Y), 300
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If DrawState = True Then
Line (prex, prey)-(X, Y)
prex = X
prey = Y
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
DrawState = False
End If
End Sub

我可以画线阿〜

Option Explicit

Dim prex As Double, prey As Double, DrawState As Boolean

Private Sub Form_Load()
    DrawState = False
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Button = 1 Then
        DrawState = True
        prex = X
        prey = Y
    End If
   

    If Button = 2 Then
        Circle (X, Y), 300
    End If
   

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If DrawState = True Then
        Line (prex, prey)-(X, Y)
        prex = X
        prey = Y
    End If
   

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Button = 1 Then
        DrawState = False
    End If
   

End Sub

谢！