VB Code:
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Sub Form_Load()
Dim desktop As Long
Dim MyRect As RECT
Dim h As Long
desktop = GetDesktopWindow()
h = GetWindowRect(desktop, MyRect)
SetWindowPos Me.hwnd, HWND_TOPMOST, (MyRect.Right - 900), (MyRect.Bottom - 600), 500, 500, 0 'API to keep the AutoCAD manual on top
myrect.right is the resolution in width