Excel VBA - positioning an Userform

Question

Dear All,

by the below Excel VBA code I move an Userform below a TextBox:

Dim FormTitleSize As Double
Dim dblTop As Double
Dim dblLeft As Double
With Me
    FormBorderSize = (.Width - .InsideWidth)
    FormTitleSize = .Height - (.InsideHeight + FormBorderSize)
    dblTop = .Top + .txtID_Request.Top + .Height - .InsideHeight + FormTitleSize
    dblLeft = .Left + txtID_Request.Left + .Width - .InsideWidth - FormBorderSize
End With
With frmList
    .StartUpPosition = 0
    .Top = dblTop
    .Left = dblLeft
End With

but I would like to have the Userform aligned with the button indicated by the red arrow as below image:

Any suggestion?

Thanks

Answer 1

Check this expression:

dblLeft = .Left + myButton.Left + myButton.Width + FormBorderSize - frmList.Width

The form should be repositioned when some parts are invisible (off-screen).