Nada nada, me equivoqué, culpa mia sorry, era este:
Gracias, saludos
Código [Seleccionar]
Private Sub Fondo_Click(Index As Integer)
If Index = 0 Then
Frojo = Barra1.Value
Fverde = Barra2.Value
Fazul = Barra3.Value
Barra1.Value = Brojo
Barra2.Value = Bverde
Barra3.Value = Bazul
Else
Brojo = Barra1.Value
Bverde = Barra2.Value
Bazul = Barra3.Value
Barra1.Value = Frojo
Barra2.Value = Fverde
Barra3.Value = Fazul
End If
End Sub
Gracias, saludos