Make a form open to the right hand side of the user's monitor

You would do something like this:

Declare Function GetSystemMetrics32 Lib "user32" _
    Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Private Sub Form_Open(Cancel As Integer)    
    MonitorW = GetSystemMetrics32(0) * 1440 / 96
    MonitorH = GetSystemMetrics32(1) * 1440 / 96
    
    Me.Move 600, 600, MonitorW - 1200, MonitorH - 2000
End Sub

Select allOpen in new window

  Using the Move to place the form where you wanted.

Jim.

Jim,  I don't seem to be able to make this work.  I copy/pasted this in a public module:

Declare Function GetSystemMetrics32 Lib "user32" _
    Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Select allOpen in new window

And pasted this in the onopen event of the form:

Private Sub Form_Open(Cancel As Integer)    
    MonitorW = GetSystemMetrics32(0) * 1440 / 96
    MonitorH = GetSystemMetrics32(1) * 1440 / 96
    
    Me.Move 600, 600, MonitorW - 1200, MonitorH - 2000
End Sub

Select allOpen in new window