Private Sub Command1_Click()
    MsgBox "Top: " & Me.Top & vbCrLf & "Left: " & Me.Left
    SaveSetting App.Title, "Options", "Form2Moni2Left", Me.Left
    SaveSetting App.Title, "Options", "Form2Moni2Top", Me.Top
End Sub
 
Private Sub Command2_Click()
    Form2.Show
    Form2.Top = GetSetting(App.Title, "Options", "Form2Moni2Top", 0)
    Form2.Left = GetSetting(App.Title, "Options", "Form2Moni2left", 0)
End Sub
 
Private Sub Form_Load()
    Command1.Caption = "Position"
    Command2.Caption = "Form2"
    Form2.Show
    Form2.Top = GetSetting(App.Title, "Options", "Form2Moni2Top", 0)
    Form2.Left = GetSetting(App.Title, "Options", "Form2Moni2Left", 0)
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    Unload Form2
End Sub