Visual Basic - PopUpMenu en listbox

Hola, queria saber si hay alguna manera de crear un menu que aparezca al pulsar con el boton derecho del raton en una listbox, y que ademas seleccione el item correspondiente de la lista. Gracias.

segun creo, esto no es posible desde visual basic, quizas me equivoque, pero una vez mas las API\'s de Windows estan aqui para salvarnos :D

mira este codigo que hize:

Option Explicit

Private Declare Function SendMessage Lib \"user32\" Alias \"SendMessageA\" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const LB_ITEMFROMPOINT = &H1A9

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Index As Long
Dim XPoint As Long
Dim YPoint As Long
Dim ZPoint As Long

If Button = vbRightButton Then \'-- boton derecho presionado
XPoint = CLng(X / Screen.TwipsPerPixelX)
YPoint = CLng(Y / Screen.TwipsPerPixelY)
ZPoint = CLng(YPoint * &H10000 + XPoint)
With List1
Index = SendMessage(.hWnd, LB_ITEMFROMPOINT, 0, ByVal ZPoint)
If Index >= 0 And Index <= .ListCount Then
.Selected(Index) = True '-- selecionar item
End If
End With
PopupMenu mnuFile '-- mostrar popupmenu
End If
End Sub

chao

Espero que lo que dice el compañero Maco funcione, pero nunca me gustaron las Apis .
Si estamos hablando de Vb6, tenemos un metodo Popupmenu que junto con el editor de menus nos permite crear menus emergentes.
En el editor de menus crea una linea principal de menu con la propidad visible false y nombre MenuAux (por ejemplo)
A continuacion varias lineas secundarias y visibles (un sangrado)
Este menu al tener la linea principal no visible, no se verá al ejecutar.
En el Formulario elegido en el evento mouseup escribir
if Button=2 then popupmenu menuaux (el boton derecho es el 2)
Si ejecutais y pulsais el derecho sobre el formulario debe aprecer el menú, en caso contrario no habrá devolución de dinero

Lo que ha mandau Maco funsiona de maravilla, pero la funsion del codigo no es sacar un menu emergente solamente, sino que ademas te seleccione el item deseado de una listbox.