Option Explicit

Private Type POINTAPI
   x As Long
   y As Long
End Type
Private Type RECT
   Left As Long
   Top As Long
   Right As Long
   Bottom As Long
End Type
Private Declare Function ScreenToClient Lib "user32" (ByVal hWnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function ClientToScreen Lib "user32" (ByVal hWnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function OffsetRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long


Private Sub Command1_Click()
   Dim pt As POINTAPI
   Dim rc As RECT
   With Command1
      pt.x = .Left \ Screen.TwipsPerPixelX
      pt.y = (.Top + .Height) \ Screen.TwipsPerPixelY
   End With
   ClientToScreen hWnd, pt
   Load Form2
   GetWindowRect Form2.hWnd, rc
   OffsetRect rc, (pt.x - rc.Left), (pt.y - rc.Top)
   SetWindowPos Form2.hWnd, - 1 , rc.Left, rc.Top, (rc.Right - rc.Left), (rc.Bottom - rc.Top),  0 
   Form2.Visible = True
End Sub

   SetWindowPos Form2.hWnd,  0 , rc.Left, rc.Top, (rc.Right - rc.Left), (rc.Bottom - rc.Top),  0 
   Form2.Show vbModal