Form 1 abre form 2 na posição do mouse

Depois de procurar muito, cheguei nesta solução, que não é perfeita mas atende ao que se pretende...

Colar no código do form 2, que é um mini form popup, que no meu caso mostra "fracionados em metro e cor" de quantidade de material "fios e cabos":

------------------------------------------------------------------

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI
X As Long
Y As Long
End Type

Dim Posicao As POINTAPI

---------------------------------------------------------

Private Sub Form_Open(CANCEL As Integer)

Dim XX As Long
Dim YY As Long

GetCursorPos Posicao

XX = Posicao.X * 12!
YY = Posicao.Y * 12!

DoCmd.MoveSize (XX), (YY), 2000, 3000

End Sub

boa noite meu amigo quero acompanhar este tópico

Olá Nilton Vassão,

Obrigado pela partilha o fórum agradece.

Abraço a todos