Comment positionner un formulaire ouvert depuis un autre, à droite de l'écran

Option Compare Database
Option Explicit

' Énumération des positions souhaitées
Public Enum eRightPosition
  SetToTop = 1
  SetToCenter = 2
  SetToBottom = 3
End Enum

' Constantes de l'Api SetWindowPos()
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_HIDEWINDOW = &H80
Private Const SWP_FOCUSWINDOW = 0

' Constantes des API GetSystemMetrics() et GetDeviceCaps()
Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1
Private Const HWND_DESKTOP As Long = 0
Private Const LOGPIXELSX As Long = 88
Private Const LOGPIXELSY As Long = 90

' Constantes des dimensions de marge et barre de titre de la fenêtre
Private Const SCREEN_MARGIN = 5
Private Const SCREEN_TITLEBAR = 30

'API Windows
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) _
    As Long
Private Declare Sub 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)
Private Declare Function GetDC Lib "user32" (ByVal Hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal Hwnd As Long, ByVal hdc _
    As Long) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal _
    nIndex As Long) As Long

'
'*******************************************************************************
' Procédure : subMoveFormToRight
' Rôle: Permet de positionner un formulaire sur la partie droite de l'écran
' Paramètres:
'    - FormName : Nom du formulaire
'    - RightPosition : Valeur de la position de 1 à 3 fondée sur eRightPosition
'    - ActivateWindow : True ou False (True donne le focus à la fenêtre déplacée)       
'*******************************************************************************
'
Public Sub subMoveFormToRight(ByVal FormName As String, Optional ByVal _
    RightPosition As eRightPosition, Optional ByVal ActivateWindow As Boolean = False)
    
Dim sngScreenWitdh As Single
Dim sngScreenHeight As Single
Dim TwipsPerPixelX As Long
Dim TwipsPerPixelY As Long
Dim lngNewX As Long
Dim lngNewY As Long
Dim lngDC As Long

Dim lngHorizontalPosition As Long
Dim lngVerticalPosition As Long
Dim lngFormHwnd As Long
Dim lngFormWidth As Long
Dim lngFormHeight As Long

  ' Initialisation des coordonnées du formulaire et de son Handle
  With Forms(FormName)
      lngFormHwnd = .Hwnd
      lngFormWidth = .InsideWidth
      lngFormHeight = .InsideHeight
  End With

  ' Calculs relatifs à l'écran
  lngDC = GetDC(HWND_DESKTOP)
  TwipsPerPixelX = 1440& / GetDeviceCaps(lngDC, LOGPIXELSX)
  TwipsPerPixelY = 1440& / GetDeviceCaps(lngDC, LOGPIXELSY)
  ReleaseDC HWND_DESKTOP, lngDC
  
  lngHorizontalPosition = lngFormWidth \ TwipsPerPixelX
  lngVerticalPosition = lngFormHeight \ TwipsPerPixelY
  
  sngScreenWitdh = GetSystemMetrics(SM_CXSCREEN)
  sngScreenHeight = GetSystemMetrics(SM_CYSCREEN)
  
  lngNewX = (sngScreenWitdh - lngHorizontalPosition) - SCREEN_MARGIN
  'Vérification de la position verticale choisie
  Select Case RightPosition
    Case SetToTop
        lngNewY = 0
    Case SetToBottom
        lngNewY = (sngScreenHeight - lngVerticalPosition) - SCREEN_TITLEBAR
    Case Else
        lngNewY = ((sngScreenHeight - lngVerticalPosition) - SCREEN_MARGIN) \ 2
  End Select
  
  ' Positionnement final du formulaire
  SetWindowPos lngFormHwnd, HWND_TOPMOST, lngNewX, lngNewY, 0, 0, SWP_SHOWWINDOW _
      Or SWP_NOSIZE Or IIf(ActivateWindow, SWP_FOCUSWINDOW, SWP_NOACTIVATE)

End Sub