如何在標單上畫點~

Question

深入問題~
就是~
標單上會一直出現點~整個標單唷!慢慢的
然後我的滑鼠移動繪畫圓圈，半徑一百就可以了!
圓圈是要清除那些點，讓那些點點不見，跟標單的顏色一樣。

這個有一點點的難度~希望哪個大大可以幫我回答
小的一定感激不盡，謝謝。

Answer 1

Dim B As Boolean, Xx, YyPrivate Sub Form_Load()        Dim I%        AutoRedraw = True        'DrawWidth = 3        FillColor = BackColor        ForeColor = BackColor        DrawStyle = 0        Show        Randomize        Do          For I = 1 To 10              PSet (Int(Rnd * (ScaleWidth + 1)), Int(Rnd * (ScaleHeight + 1))), RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))          Next          Delay 0.1 '延遲0.1秒        Loop Until BEnd SubPrivate Sub Delay(ByVal N As Single) '延遲時間副程式        Dim T1 As Single, T2 As Single                T1 = Timer        Do         T2 = Timer         If T2 < T1 Then T2 = T2 + 86400         If T2 - T1 > N Then Exit Do         DoEvents        LoopEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)        Circle (Xx, Yy), 100        Circle (X, Y), 100, 0 '若圓不需框線,可把此行Mark掉        Xx = X: Yy = YEnd SubPrivate Sub Form_Unload(Cancel As Integer)        B = True        EndEnd Sub