Sélection multiple

Me voici de nouveau, je n'ai pas perdu mon temps et ai fait des recherches dont voici les résultats
1) on me suggère d'utiliser un Frame dans lequel j’intégrerai tous mes objets à centrer dans l'écran, mais problème mes objets perdent leur indépendance !
2) Je cogite, calcule et construit un bout de code VBA assez lourd selon moi, mais ça a le mérite de fonctionner
Je vous rappelle mon objectif : comme ma base sera utilisée sur plusieurs ordinateurs différents donc écrans de taille différente je veux que mon Form d'accueil soit agréable et que les objets soient toujours centrés dans l'écran quel que soit l'écran.
Voici une image et mon code



Le code ... certes tiré par les cheveux

Private Sub Commande15_Click()
        With Me.Boite1
            .Top = (Me.InsideHeight - Me.Boite1.Height) / 2
            .Left = (Me.InsideWidth - Me.Boite1.Width) / 2
        End With
         With Me.Boite6
            .Top = (Me.InsideHeight - Me.Boite6.Height) / 2 + 5
            .Left = (Me.Boite1.Left) + 150
        End With
         With Me.Boite8
            .Top = (Me.InsideHeight - Me.Boite8.Height) / 2 + 5
            .Left = (Me.Boite1.Left + Me.Boite1.Width - Me.Boite6.Width) - 150
        End With
         With Me.Boite7
            .Top = (Me.InsideHeight - Me.Boite8.Height) / 2 + 5
            .Left = (Me.InsideWidth / 2 - Me.Boite7.Width / 2)
        End With
        With Me.Etiquette10
            .Top = (Me.InsideHeight - Me.Boite8.Height) / 2 + 700
            .Left = (Me.Boite1.Left + 50 + (Me.Boite6.Width - Me.Etiquette10.Width) / 2)
        End With
        With Me.Etiquette11
            .Top = (Me.InsideHeight - Me.Boite8.Height) / 2 + 700
            .Left = (Me.Boite1.Left + Me.Boite1.Width / 2 - Me.Etiquette11.Width / 2)
        End With
        With Me.Etiquette12
            .Top = (Me.InsideHeight - Me.Boite8.Height) / 2 + 700
            .Left = (Me.Boite1.Left + Me.Boite1.Width - (50 + (Me.Boite8.Width - Me.Etiquette12.Width) / 2 + Me.Etiquette12.Width))
        End With
        With Me.Creation
            .Top = (Me.Boite1.Top + Me.Boite8.Height - 1500)
            .Left = (Me.Boite1.Left + 50 + (Me.Boite6.Width - Me.Creation.Width) / 2)
        End With
        With Me.Lecture
            .Top = (Me.Boite1.Top + Me.Boite8.Height - 1500)
            .Left = (Me.Boite1.Left + Me.Boite1.Width / 2 - Me.Lecture.Width / 2)
        End With
        With Me.Imprimer
            .Top = (Me.Boite1.Top + Me.Boite8.Height - 1500)
            .Left = (Me.Boite1.Left + Me.Boite1.Width - (50 + (Me.Boite8.Width - Me.Imprimer.Width) / 2 + Me.Etiquette12.Width))
        End With
        With Me.Bt_Quitter
            .Top = (Me.Boite1.Top + Me.Boite1.Height + 1000)
            .Left = (Me.Boite1.Left + Me.Boite1.Width / 2 - Me.Lecture.Width / 2)
        End With

End Sub

Qu'en pensez vous ?
Toutes les critiques seront les bien venues
Bonne soirée

Bonjour,
en mettant la propriété auto centrer à oui ????

A+

Bonjour,

A voir:

https://www.developpez.net/forums/d380908/logiciels/microsoft-office/access/contribuez/ihm-gerer-resolution-formulaires/