VB 如何移動滑鼠畫點

Question

深入問題
就是!
移動滑鼠的時候~可以畫半徑50的圈~是用點構成的
然後~表單是自動慢慢的，慢慢的把點清除~淡化掉，
變成原來的!可是只要我一直動滑鼠~表單就要一直清。
這問題有點難，希望拿個大大可以給我解救，小的一定感激不盡!!

救救我吧!!

Answer 1

Const Pi = 3.14159265358979Dim B As BooleanPrivate Sub Form_Load()        AutoRedraw = True        Show        Randomize        Do          For I = 1 To 5              PSet (Int(Rnd * (ScaleWidth + 1)), Int(Rnd * (ScaleHeight + 1))), BackColor          Next          DoEvents        Loop Until BEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)        Dim J As Integer, R As Integer, X1 As Long, Y1 As Long        Dim N As Integer, L As Integer                Randomize        R = 50        Do            N = Int(Rnd * (R / 10 - R / 20 + 1) + R / 20)  '噴的密度            If N < 15 Then N = 15 '至少噴15滴            W = 360 / N            L = Int(Rnd * 181 + 1)            For J = 0 To N                X1 = X - Sin(W / L * Pi) * R                Y1 = Y + Cos(W / L * Pi) * R                Me.PSet (X1, Y1), RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))                W = W + 360 / N            Next            R = R - Int(Rnd * 10 + 1)        Loop Until R < 0End SubPrivate Sub Form_Unload(Cancel As Integer)        B = True        EndEnd Sub