Menu Pop Up dengan vb 6

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_GETITEMRECT = &H198 Private Const LB_ERR = (-1)
Private
Type RECT         Left As Long         Top As Long        
Right As Long         Bottom As Long End Type
Public
Function