Visual Basic - Problema con ListBox

hola a todos.
Quisiera que me ayudaran con este problema:
Tengo un text en donde capturo caracteres y un listbox donde pongo los registros, luego de la consulta respectiva, que coinciden con esos caracteres. Mi problema es que al teclear ENTER quiero que el List1 reciba el foco (ya lo he hecho con List1.SetFocus) y que el primer registro se seleccione para que el usuario navegue con las teclas de cursor de arriba hacia abajo. He logrado que el list1 reciba el foco pero el primer registro no aparece seleccionado hasta que hago click. Se puede hacer eso?
Si alguien me ayuda estaré agradecido.
Saludos: Paco

Para seleccionar automaticamente algun registro ...

Me.List1.ListIndex = X ' X=la posicion deseada, desde 0 hasta .ListCount -1

Gracias y voy a probar con tu sugerencia.
Muy amable. Saludos. Paco

Hola:
Haber si me hago entender: cargo un listbox con los registros, deseo que el primer registro se seleccione al recibir el foco el list, pero que me espere para moverme con las teclas de cursor y con un ENTER seleccionar el deseado para que luego pase al text2.
Ojalá y no esté muy complicado y me ayuden. Gracias de antemano. Paco

tengo este código:

Private Sub List1_Click() '''''''''''acá en cuanto muevo el puntero con las teclas de cursor, el programa sigue.
Productos
nom = List1.Text
Rs.MoveFirst
Do While Not Rs.EOF
If num >= MSFlexGrid1.Rows Then MSFlexGrid1.AddItem ""
If Rs!nombre = nom Then
MSFlexGrid1.TextMatrix(num, 0) = num
MSFlexGrid1.TextMatrix(num, 1) = Rs!nombre
MSFlexGrid1.TextMatrix(num, 3) = Rs!precio_venta
MSFlexGrid1.TextMatrix(num, 4) = Rs!p_sugerido
MsgBox "Existencias en el list tiene : " & Rs!existencias
nombprod = Rs!nombre
pventa = Rs!precio_venta
psug = Rs!p_sugerido
Exit Do
End If
Rs.MoveNext
Loop
Text1.Text = nom
List1.Visible = False
End Sub

Private Sub List1_GotFocus() ''' cuando recibe el foco, selecciona el primer elemento pero al mover el cursor con las teclas, sale y pasa al text2
Me.List1.ListIndex = 0
End Sub

Private Sub List1_LostFocus()
Text2.SetFocus ''' aqui deberia pasar al text2
End Sub