ScrollBar

sencillo usando la propiedad de del scroll value

ejemplo

private sub hscroll1_scroll()
combobox1.listindex=hscroll1.value
end sub

y a la inversa

private sub combobox1_click()
hscroll1.value=combobox1.listindex
end sub

espero ser de ayuda!!
un saludo vbGopher

en un formulario crea un combo y una barra i este es el codigo

'-------------------------------------
Private Sub ComboBox1_Click()
'Se crea el efecto de desplazamiento al seleccionar un elemento
'de la lista de del Combo

Me.ScrollBar1.Value = Me.ComboBox1.ListIndex
Me.Caption = "Elemento seleccionado " & Me.ScrollBar1.Value + 1
End Sub

Private Sub ScrollBar1_Change()
'Se crea el efecto de desplazamiento al mover la barra

Me.ComboBox1.ListIndex = Me.ScrollBar1.Value
Me.Caption = "Elemento seleccionado " & Me.ScrollBar1.Value + 1
End Sub

Private Sub UserForm_Initialize()

'Agregamos algunos elementos a la lista del Combo
'---------------------------------------------------------------
Me.ComboBox1.AddItem ("Lic. en Informatica")
Me.ComboBox1.AddItem ("Lic. en Sistemas Computacionales")
Me.ComboBox1.AddItem ("Lic. en Ciencias Computacionales")
Me.ComboBox1.AddItem ("Ing. en Electronica")
Me.ComboBox1.AddItem ("Ing. en Computacion")
Me.ComboBox1.AddItem ("Ing. en Cibernetica")
'----------------------------------------------------------------
'Inicializamos los limites de la barra dependiendo del contenido
'de la lista del Combo

Me.ScrollBar1.Max = Me.ComboBox1.ListCount - 1
Me.ScrollBar1.Min = 0


End Sub
'-------------------------------
un saludo!
vbGopher