Cita:
Iniciado por David el Grande 
El bucle que dejaste en el MouseDown...
. (El único gran problema es que según me parece no debería saltar a la sgte. línea antes de hacer Click en algún Ítem. Pero eso solo tú podrás comprobarlo).
ya pero cuando lanzas el popup no dejas nada parado (no es como un form.show 1). Luego... no me sirve.
Además la ejecución el popup menú la tengo de la siguiente forma:
Código:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim msg As Long
msg = X / Screen.TwipsPerPixelX
Select Case msg
Case WM_LBUTTONDOWN
Case WM_LBUTTONUP
Me.PopupMenu MnuOpcion
Case WM_LBUTTONDBLCLK
Case WM_RBUTTONDOWN
Case WM_RBUTTONUP
Me.PopupMenu MnuOpcion
Case WM_RBUTTONDBLCLK
End Select
End Sub