Option Explicitdim Radius, R, G, B, XPOS, YPOS, I, J, K, S1, S2, S3, W AS INTEGERDIM L AS Longdim D as boolean
Private Sub Form_Click () unload form1
End Sub
Private Sub Form_KeyDown (Keycode As Integer, Shift As Integer) Unload form1nd Sub
Private sub flowwidth = 1RADIUS = 1W = 20d = truel = 10g = 200b = 90s1 = 1s2 = 2S3 = 3i = -1J = 1k = 1
End Sub
PRIVATE SUB TIMER1_TIMER () IF R I * S1> 255 THEN R = 510 - R - S1 * I = -1ELSEIF R S1 * i <0 THEN R = -r - S1 * i = 1ELSE R = R i * S1END IF
IF G J * S2> 255 THEN G = 510 - R - S1 * J J = -1ELSEIF G S2 * J <0 THEN G = -g - S2 * J J = 1ELSE G = G J * S1END IF
IF B K * S3> 255 THEN B = 510 - R - S3 * K K = -1ELSEIF B S3 * i <0 THEN B = -b - S3 * i k = 1ELSE B = B K * S3nd IF
Xpos = form1.scalewidth / 2ypos = form1.scaleHeight / 2
L = SQR (CLNG (YPOS) * ClNG (YPOS) ClNG (XPOS) * ClNG (XPOS))
If RADIUS <= L THEN D = TrueEnd IFIF Radius> L THEN D = falseEnd IF
Circle (XPOS, YPOS), RADIUS, RGB (R, G, B)
IF D THEN RADIUS = RADIUS W Else Radius = RADIUS - W End IF
End Sub
