マルチモニタとaccess

最近のお客さんは、マルチモニタは当たり前なのね、、 で、アプリの画面を左側に出したいとか、右側に出したいとか、当然要望があるんだよね、、 で、ググって色々、書いてみたけれど、、

Private Sub Form_Load()
    objLog.Debg Me.Name & "; Fm_Load"
    Dim TopP As Long
    Dim LeftP As Long
    
    TopP = Nz(GetSetting("app1", "menu", "Top", 0), 0)
    LeftP = Nz(GetSetting("app1", "menu", "Left", 0), 0)

    Me.Move LeftP, TopP

End Sub

Private Sub 詳細_DblClick(Cancel As Integer)
    SaveSetting "app1", "menu", "Top", Me.WindowTop
    SaveSetting "app1", "menu", "Left", Me.WindowLeft
    MsgBox "画面位置を保存しました。"
End Sub

全部の画面にこれを書くのかと思ったら、吐き気がしたのと、、 確認ダイアログ（vbYesNoとか使うやつ）が、、メインモニタに固定？

んー、何を持ってメインモニタというのか、よくわからんけれども、、 モニタ番号的なやつを固定する方法がないか、いつか、ぐぐります、、いつか、、

/* -----codeの行番号----- */