Enço, por favor lee este mensaje porque me tengo que ir.

al
20 de Mayo del 2004
Bueno Enço que tal ha ido?, como te he explicado en el anterior mensaje el instructor me ha dado otro planteamiento, asi que intentaré seguir por ahi, pero si has conseguido algo comentamelo, poque voy todo el rato hacia atras como los cangrejos. Además te quería pedir que leyeras el mensaje que me ha enviado José, a ver que te parece, porque lo he intentado probar pero me da el error 429(a saber..) te pongo como lo tengo en el codigo(es un ejemplo de los 4 botones ):

Private Sub cmdabajo_Click()
AppActivate (retval)

keybd_event VK_MENU, &H12, KEYEVENTF_EXTENDEDKEY Or 0, 0 'Tabulador para q se abra el menú, nos deja 1a pos + alante de dnd estamos
keybd_event VK_MENU, &H12, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0

indicemenu = Application.CommandBars.ActionControl.Parameter



'para moverme hacia abajo por la listbox'
'If lst1.ListIndex = (lst1.ListCount - 1) Then
'MsgBox ("ultimo")
'Else
'lst1.ListIndex = (a + 1)
'End If

Este es el boton de abajo que en las pruebas lo suelo utilizar para activar la opcion archivo.

Bueno por ultimo decirte que por la tarde entrare de 7 a 8:15, y que espero tu respuesta. MUCHAS GRACIAS.