CoolForm

'Dichiarazione su generale

Dim Choice As Integer

Private Sub optCircle_Click()
Choice = 2
End Sub

Private Sub optConfetti_Click()
Choice = 3
End Sub

Private Sub optLine_Click()
Choice = 1
End Sub

Private Sub Timer1_Timer()
Cls
Select Case Choice
Case 1
Dim CX, CY, F, F1, F2, I
CX = Me.Width / 2 - 1400
CY = Me.Height / 2 - 1400
Me.DrawWidth = 8
For I = 50 To 0 Step -2
F = I / 50
F1 = 1 - F
F2 = 1 + F
Me.ForeColor = QBColor(I Mod 15)
Line (CX * F1, CY * F1)-(CX * F2, CY * F2), , BF
Next I
DoEvents
Case 2
Dim Radius, Limit
Me.ScaleMode = 1
DrawWidght = 2
CX = Me.ScaleWidth / 2 - 900
CY = Me.ScaleHeight / 2 - 600
If CX > CY Then
Limit = CY
Else
Limit = CX
End If
For Radius = 0 To Limit Step Limit / 50 _
Circle (CX, CY), Radius, RGB(Rnd * 255, _
Rnd * 255, Rnd * 255), , , Rnd
'QBColor(Radius Mod 15)

For I = 0 To 10000
Next I
Next Radius
Case 3
Dim Size As Integer
Size = 1
Randomize Timer
ScaleMode = Size
DrawWidth = 1
For I = 1 To 200
CX = Rnd * Me.Width
CY = Rnd * Me.Height
Line (CX, CY)-(CX + 100, CY + 100), _
QBColor(I Mod 15), BF
Next I
Case Else
End Select
End Sub

Richiede:
3 option buttons -> optLine - optCircle - optConfetti <-
1 TIMER ( Intervallo 500 )