PushButton DropDown

Option Explicit

Private Type POINTAPI
   x As Long
   y As Long
End Type

Private Declare Function ClientToScreen Lib "user32.dll" (ByVal hwnd As Long, ByRef lpPoint As POINTAPI) As Long


Private Sub Form_Load()
   ' Create a sample command bar, attached to the ContextMenus collection
   With Me.CommandBars1
      .DeleteAll
      
      With .ContextMenus.Add(100, "Test")
         .Controls.Add xtpControlButton, 101, "Test"
         .Controls.Add xtpControlButton, 102, "Test2"
         .Controls.Add xtpControlButton, 103, "Test3"
      End With
   End With
End Sub

Private Sub PushButton1_DropDown()
   Dim lt_Pt As POINTAPI
   
   ' Get position for popup menu based on button position & height
   lt_Pt.x = Me.PushButton1.Left
   lt_Pt.y = Me.PushButton1.Top + Me.PushButton1.Height
   
   ' Convert popup menu position to pixels
   If Me.ScaleMode <> vbUser Then
      lt_Pt.x = Me.ScaleX(lt_Pt.x, Me.ScaleMode, vbPixels)
      lt_Pt.y = Me.ScaleY(lt_Pt.y, Me.ScaleMode, vbPixels)
   End If
   
   ' Convert popup menu position to screen coordinates
   ClientToScreen Me.hwnd, lt_Pt
   
   ' Convert popup menu position back to client scalemode
   If Me.ScaleMode <> vbUser Then
      lt_Pt.x = Me.ScaleX(lt_Pt.x, vbPixels, Me.ScaleMode)
      lt_Pt.y = Me.ScaleY(lt_Pt.y, vbPixels, Me.ScaleMode)
   End If
   
   ' Show the popup menu. ContextMenus collection is 1-based
   Me.CommandBars1.ContextMenus(1).ShowPopup TPM_RETURNCMD, lt_Pt.x, lt_Pt.y
End Sub