• Home
 · 
• Graphics
 · 
• Change colors

Change colors

Change colors

API Declarations


Dim BLUE As Integer
Dim GREEN As Integer
Dim Rtog As Boolean
Dim Btog As Boolean
Dim Gtog As Boolean



Rate Change colors

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub Timer1_Timer()
If Rtog = True Then
RED = RED + 4 * Rnd
Else: RED = RED - 4 * Rnd
End If
If RED > 255 Then Rtog = False
If RED < 10 Then Rtog = True

If Btog = True Then
BLUE = BLUE + 4 * Rnd
Else: BLUE = BLUE - 4 * Rnd
End If
If BLUE > 255 Then Btog = False
If BLUE < 10 Then Btog = True

If Gtog = True Then
GREEN = GREEN + 1 * Rnd
Else: GREEN = GREEN - 4 * Rnd
End If
If GREEN > 255 Then Gtog = False
If GREEN < 10 Then Gtog = True

Label1.ForeColor = RGB(RED, GREEN, BLUE)
End Sub