Private Declare Function GetTickCount& Lib "kernel32" ()
 
Private Sub Command1_Click()
    For red = 0 To 255
        For green = 0 To 255
            For blue = 0 To 255
                Dim retraso As Long
 
                retraso = 10 + GetTickCount&
 
                While retraso >= GetTickCount&
                    DoEvents
                Wend
 
                Label1.ForeColor = RGB(red, green, blue)
 
            Next blue
        Next green
    Next red
End Sub