¿Solicitar que VB haga clic con el botón derecho en el icono de la barra de estado para mostrar el código del menú?

Si es así, utiliza el evento Form_MouseMove.

El valor de x que devuelve representa la tecla presionada, de la siguiente manera:

Const WM_MOUSEMOVE = amp;H200

Const WM_LBUTTONDOWN = amp;H201

Const WM_LBUTTONUP = amp;H202

Const WM_LBUTTONDBLCLK = amp;H203

Const WM_RBUTTONDOWN = amp;H204

Const WM_RBUTTONUP = amp;H205

Const WM_RBUTTONDBLCLK = amp;H205

Const WM_ RBUTTONDBLCLK = amp;H206

Sub Form_MouseMove privado (botón como entero, desplazamiento como entero, x como único, Y como único)

Atenuar lMsg como único

lMsg = x / Screen.TwipsPerPixelX

Seleccionar caso lMsg

Caso WM_RBUTTONUP

PopupMenu MenuTray 'Si hace clic con el botón derecho en el icono de la bandeja del sistema, aparecerá el menú. MenuTray

Caso WM_LBUTTONUP

'Clic izquierdo

Finalizar selección

Finalizar sub