要实现一个画图功能，可是遇到如下问题……

Question

question 1Dim CX, CY, OldX, OldY, D
Dim s As BooleanPrivate Sub Command1_Click()
Form1.DrawMode = Form1.DrawMode + 1
Command1.Caption = Form1.DrawMode
Form1.Cls
End SubPrivate Sub Form_Load()
    s = False
    Form1.DrawMode = 2
End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    s = True
    CX = X
    CY = Y
    OldX = X
    OldY = Y
    D = 0
End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If s Then
        'Cls
        Circle (OldX, OldY), D
        D = dis(CX, CY, X, Y)
        Circle (CX, CY), D
        
    End If
End SubPrivate Function dis(x1, y1, x2, y2)
    dis = Sqr((x1 - x2) ^ 2 + (y1 - y2) ^ 2)
End FunctionPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Circle (CX, CY), dis(CX, CY, X, Y)
    s = False
End Sub

Answer 1

上个帖子的Command1_Click()没用,对不起,
问题2
抄自MSDN AUTOREDRAW 为TRUE时的解释
Enables automatic repainting of a Form object. Graphics and text are written to the screen and to an image stored in memory. The object does not receive Paint events; it is repainted when necessary, using the image stored in memory.说白了,TRUE时占内存