pense que habia una funcion para saber las coordenas del mouse en la aplicacion, en lopuedes hacer usando API de esta manera
Código:
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim Mouse As POINTAPI
Private Sub AbrirFrm(Formulario As Form)
Call GetCursorPos(Mouse)
Formulario.Show
Formulario.Left = Mouse.X * 15 'por defecto la escala es TWIP, asi que lo multiplicamos por 15 para obtener Pixels
Formulario.Top = Mouse.Y * 15
End Sub
'Lo llamas asi
'AbrirFrm NombreFormulario