erbuson te comento que con el código que me pasaste me esta dando un error de sub or funtion not defined, te dejo el codigo:
Código:
Private Sub bt_arriba_Click()
If listaproductos.Visible = True Then
listaproductos.SetFocus
SendKey vbKeyUp
Else
Exit Sub
End If
End Sub
Si bien se esta quedando pintado de amarillo el private sub.......
me esta dejando seleccionada en azul la palabra SendKay, lo cual se me hace raro porque esta es una función de visual y no se tendría que declarar nada... o si?
Saludos.