Disegno # Private Sub Command1_Click()
Dim Rot As Byte, c As Byte Stoppa = False Command2.Enabled = True Cls Randomize Do DrawMode = Int(Rnd * 16) + 1 'DrawStyle = Int(Rnd * 6) c = Int(Rnd * 6) + 1 For Rot = 0 To 200 Step 2 DoEvents Circle (320, 240), Rot, 0 Circle (320, 40 + Rot), Rot, QBColor(c + 1) Circle (320, 440 - Rot), Rot, QBColor(c + 2) Circle (120 + Rot, 240), Rot, QBColor(c + 3) Circle (520 - Rot, 240), Rot, QBColor(c + 4) Circle (320 - (20000 ^ 0.5) + (0.5 ^ 0.5) * (Rot), 240 + (20000 ^ 0.5) - (0.5 ^ 0.5) * (Rot)), Rot, QBColor(c + 5) Circle (320 + (20000 ^ 0.5) - (0.5 ^ 0.5) * (Rot), 240 + (20000 ^ 0.5) - (0.5 ^ 0.5) * (Rot)), Rot, QBColor(c + 6) Circle (320 - (20000 ^ 0.5) + (0.5 ^ 0.5) * (Rot), 240 - (20000 ^ 0.5) + (0.5 ^ 0.5) * (Rot)), Rot, QBColor(c + 7) Circle (320 + (20000 ^ 0.5) - (0.5 ^ 0.5) * (Rot), 240 - (20000 ^ 0.5) + (0.5 ^ 0.5) * (Rot)), Rot, QBColor(c + 8) Next Rot If Stoppa Then Exit Do Loop End Sub |