hola,llevo poco intentando programar algo util,bueno quiero hacer un programa para controlar Leds RGB,estoy preparando la interface que constaria de tres barras de desplazamiento(una para cada color),un boton de inicio otro de fin y tres labels que muestren cada color a modo de leds que parapadean(como si fueran los leds fisicos).
he escrito este codigo,pero no funciona...a ver si alguien me puede decir que he hecho mal.
'Declaraciones
Dim IntCiclos As Integer 'variable para los ciclos
Dim IntValorRojo As Integer 'valor de rojo
Dim IntValorGreen As Integer 'valor de verde
Dim IntValorBlue As Integer 'valor de Azul
Dim BolCambioColor As Boolean 'variable para indicar si cambia algun color
Dim BolFin As Boolean 'variable para cerrar el programa



'Barra de desplazamiento roja

Private Sub HScrollBarRed_Scroll(sender As System.Object, e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBarRed.Scroll

IntValorRojo = HScrollBarRed.Value 'asignamos el valor de la barra roja a la variable color rojo
BolCambioColor = True 'Indicamos que ha cambiado un color pasando el valor a true
End Sub
'Barra de desplazamiento verde
Private Sub HScrollBarGreen_Scroll(sender As System.Object, e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBarGreen.Scroll

IntValorGreen = HScrollBarGreen.Value 'Asignamos el valor de la barra verde a la variable color verde
BolCambioColor = True 'Indicamos que ha cambiado un color pasando el valor a true
End Sub
'Barra de desplazamiento azul
Private Sub HScrollBarBlue_Scroll(sender As System.Object, e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBarBlue.Scroll

IntValorBlue = HScrollBarBlue.Value 'Asignamos el valor de la barra azul a la variable color azul
BolCambioColor = True 'Indicamos que ha cambiado un color pasando el valor a true
End Sub
'Boton para salir del programa
Private Sub BtnSalir_Click(sender As System.Object, e As System.EventArgs) Handles BtnSalir.Click

BolFin = False 'Cambiamos el valor de BolFin a false para salir del bucle principal
Close()

End Sub

Private Sub ButtonInicio_Click(sender As System.Object, e As System.EventArgs) Handles ButtonInicio.Click

BolFin = True 'Inicializamos la variable que controla el bucle principal
SubMostrarColores() 'llamamos al subproceso principal

End Sub
Sub SubMostrarColores()
While BolFin

BolCambioColor = False 'Inicializamos la variable que controla si ha cambiado un color

Do While (Not BolCambioColor)
IntCiclos = 0 'inicializamos los ciclos
LblRed.Visible = True 'Hacemos visible el color rojo
LblGreen.Visible = True 'Hacemos visible el color verde
LblBlue.Visible = True 'hacemos visible el color azul
Do While IntCiclos <= 255
If IntValorRojo < IntCiclos Then
LblRed.Visible = False
End If

If IntValorGreen < IntCiclos Then
LblGreen.Visible = False
End If

If IntValorBlue < IntCiclos Then
LblBlue.Visible = False
End If
IntCiclos = IntCiclos + 1 'Contamos uno para controlar la salida del bucle

Loop
Application.DoEvents() 'para que controle si cambiamos alguna barra de color
Loop

End While

End Sub