Dim R As Integer
Dim G As Integer
Dim B As Integer
R =  0 
G =  0 
B =  255 
if R =  0  and G =  0   and B =!  0  Them B = B -  20 
Text1.BackColor = RGB(R, G, B)

a <>  0 
Not a =  0 
(a =  0 ) = False

if R =  0  And G =  0  And Not B =  0  Them B = B -  20 

Timer1.Enabled = True

Dim r , g, b As Byte
For b =  0  To  255  Step  2 
    For g =  0  to  255  Step  4 
        For r =  0  to  255  Step  8 
            Text1.Interior.ColorIndex = RGB(R, G, B)
            t = Timer
            Do While Timer-t< 0 . 01 
            Loop
        Next
    Next
Next

Private Sub Command2_Click()
    Timer1.Enabled = True
    'If R = 0 And G = 0 And Not B = 0 Then B = B - 20
    

End Sub

Private Sub Timer1_Timer()
    Dim R As Byte
    Dim G As Byte
    Dim B As Byte
    R =  0 
    G =  0 
    B =  255 
Text1.BackColor = RGB(R, G, B)
End Sub

    R =  255 
    G =  0 
    B =  0 
Text1.BackColor = RGB(R, G, B)

Private Sub Command2_Click()
    Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
    Dim R As Byte
    Dim G As Byte
    Dim B As Byte
    R =  0 
    G =  0 
    B =  255 
    Text1.BackColor = RGB(R, G, B)
    Timer2.Enabled = True
End Sub

Private Sub Timer2_Timer()
    Timer1.Enabled = False
    Dim R As Byte
    Dim G As Byte
    Dim B As Byte
    R =  255 
    G =  0 
    B =  0 
    Text1.BackColor = RGB(R, G, B)
End Sub

Private Sub Timer1_Timer()
    Static iCounter As Integer
    
    if iCounter Mod  2   =  0   then
         Text1.BackColor = RGB( 255 , 0 , 0 )    
    else
         Text1.BackColor = RGB( 0 , 255 , 0 )    
    end if
    iCounter=iCounter+ 1 
End Sub

    For I =  0  To  255  Step  85 
        R = R +  85 
        Text1.BackColor = RGB(R, G, B)
    Next I

Private Sub Timer1_Timer()
    Static iRedColor As Integer
    
    if iRedColor>  255  Then iRedColor= 0 

    Text1.BackColor = RGB(iRedColor , 0 , 0 ) 

    iRedColor = iRedColor+ 85   
End Sub

Private Sub Timer1_Timer()
    Static iRedColor As Integer
    
    if iRedColor>  255  Then iRedColor= 0 

    Text1.BackColor = RGB(iRedColor , 0 , 0 ) 

    iRedColor = iRedColor+ 85   
End Sub

Private Sub Timer1_Timer()
    Static R As Integer
    Static G As Integer
    Static B As Integer
    If R >  255  Then R =  0 
    If G >  255  Then G =  0 
    If B >  255  Then B =  0 
    If R =  0  And G =  0  And B =  0  Then B =  255 
    Text1.BackColor = RGB(R, G, B)
    If R =  0  And G =  0  And B =  255  Then B =  0 
    B = B +  85 
    
End Sub

Private Sub Command2_Click()
    Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
    Static R As Integer
    Static G As Integer
    Static B As Integer
    Static ROn As Integer
    Static GOn As Integer
    Static BOn As Integer
    Static Nachalo As Integer
    
    If Nachalo =  0  Then B =  255 
    
    Text1.BackColor = RGB(R, G, B)
    
        If BOn =  0  Then
        B = B +  1 
        Nachalo =  1 
        End If
        
        If B >  255  Then
        GOn =  1 
        B =  0 
        BOn =  1 
        End If
        
        If GOn =  1  Then
        G = G +  1 
        End If
        
        If G >  255  Then
        ROn =  1 
        GOn =  0 
        G =  0 
        End If
        
        If ROn =  1  Then
        R = R +  1 
        End If
        
        If R >  255  Then
        R =  0 
        GOn =  0 
        BOn =  0 
        GOn =  0 
        ROn =  0 
        End If
        
End Sub

[SRC VB]Private Sub Command2_Click()
    Timer1.Enabled = True
    Static pub As Integer
    pub =  1 
End Sub
Private Sub Timer1_Timer()
    Print pub
End Sub