Aca tenes un pequeño ejemplo. son dos scrolls, si moves un de ellos se mueve el otro. El codigo es bastante simple, se puede simplificar mas usando matrices de controles en el caso de tener muchos scrolls. para probarlo crea un formulario con dos scrolls, llamados Barra1 y Barra2. pega este codigo y listo.
Option Explicit
Dim Flag As Boolean, X As Integer
Private Sub Barra1_Change()
On Error GoTo Fin
If Flag Then
Flag = False
X = Barra2.Value + (Barra1.Value - Int(Barra1.Tag))
Barra2.Value = X
Actualizar
End If
Exit Sub
Fin:
If X < Barra2.Min Then
Barra2.Value = Barra2.Min
ElseIf X > Barra2.Max Then
Barra2.Value = Barra2.Max
End If
Actualizar
End Sub
Private Sub Barra2_Change()
On Error GoTo Fin
If Flag Then
Flag = False
X = Barra1.Value + (Barra2.Value - Int(Barra2.Tag))
Barra1.Value = X
Actualizar
End If
Exit Sub
Fin:
If X < Barra1.Min Then
Barra1.Value = Barra1.Min
ElseIf X > Barra1.Max Then
Barra1.Value = Barra1.Max
End If
Actualizar
End Sub
Private Sub Form_Load()
Barra1.Value = 10
Barra2.Value = 30
Actualizar
End Sub
Public Sub Actualizar()
Barra1.Tag = Barra1.Value
Barra2.Tag = Barra2.Value
Flag = True
End Sub
