Public Function Show(Optional ByVal iFormHwnd As Long = -1, Optional ByVal x As _
  Long = -1, Optional ByVal Y As Long = -1, Optional ByVal iControlHwnd As Long _
  = -1) As Long
Dim iHwnd As Long, iX As Long, iY As Long
 
    If iFormHwnd = -1 Or iFormHwnd = 0 Then
 
        Dim iDesktopHwnd As Long, iChildHwnd As Long, iCurrentID As Long, _
          iChildID As Long
 
        iDesktopHwnd = GetDesktopWindow()
        iChildHwnd = GetWindow(iDesktopHwnd, GW_CHILD)
        iCurrentID = GetCurrentProcessId()
        Do While iChildHwnd
            GetWindowThreadProcessId iChildHwnd, iChildID
            If iChildID = iCurrentID Then Exit Do ' Snagged
            iChildHwnd = GetWindow(iChildHwnd, GW_HWNDNEXT)
        Loop
 
        If iChildHwnd = 0 Then
            Show = -1
            Exit Function
        End If
        iHwnd = iChildHwnd
    Else
        iHwnd = iFormHwnd
    End If
 
    If iControlHwnd <> -1 Then
        Dim rt As RECT
        GetWindowRect iControlHwnd, rt
        iX = rt.Left
        iY = rt.Bottom
    Else
        Dim pt As POINT
        GetCursorPos pt
        If x = -1 Then iX = pt.x Else: iX = x
        If Y = -1 Then iY = pt.Y Else: iY = Y
    End If
    Show = TrackPopupMenuEx(piHwnd, TPM_RETURNCMD Or TPM_RIGHTBUTTON, iX, iY, _
      iHwnd, ByVal 0&)
 
End Function