Mover el scroll de un listbox

[inakisantos]

Haber, el evento focus no me va. Yo en el codigo pongo esto para seleccionar el dato:

lbxCamposDisponibles es el ListBox

Private Sub btnIr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIr.Click
Dim ds As New DataSet
Dim strConsulta As String
Dim i As Integer
Dim li As ListItem
Dim blnEncontrado As Boolean = False
Dim blnExiste As Boolean = False

If Me.lbxCamposDisponibles.Items.Count > 0 Then
Me.lbxCamposDisponibles.SelectedItem.Selected = False

'Comprueba si existe un registro que se contenga el texto
ds = Me.Datos.Text))
If ds.Tables(0).Rows.Count = 0 Then
For Each li In Me.lbxCamposDisponibles.Items
If (String.Compare(li.Text, Me.Datos.Text) > 0) And (Not blnEncontrado) Then
li.Selected = True

blnEncontrado = True
End If
Next
Else
For Each li In Me.lbxCamposDisponibles.Items
If li.Text = ds.Tables(0).Rows(0)(0) Then
li.Selected = True
blnEncontrado = True
End If
Next
End If

'Si es mayor que cualquier elemento
If Not blnEncontrado Then
Me.lbxCamposDisponibles.Items(Me.lbxCamposDisponib les.Items.Count - 1).Selected = True

End If
End If
End Sub

Como puedo hacer que el elemento seleccionado se ponga visible en el ListBox?