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 SubGracias, saludos
				
.