Load From at Cursor Position?

[jdc6029]

Is there a way to have my secondary form, Form2, load at the current cursor position?
(Left and Top)

[vbgladiator]

Can't you set form2,s left and right positions to be that of the X and Y values. Do it in the Mouse Down event.

[Joacim Andersson]

Use the following in a module

Private Declare Function GetCursorPos _
 Lib "user32" ( _
 lpPoint As POINTAPI) As Long
 
Private Type POINTAPI
    x As Long
    y As Long
End Type
 
Public Sub ShowForm(frm As Form)
    Dim p As POINTAPI
    GetCursorPos p
    frm.Move p.x * Screen.TwipsPerPixelX, p.y * Screen.TwipsPerPixelY
    frm.Show
End Sub

Now instead of calling Form2.Show call ShowForm Form2

Best regards

[jdc6029]

Thank you Joacim. This works really great.