Como posso determinar a área utilizável de um formulário de usuário do Excel VBA para que eu possa redimensioná-lo para ajustar os controles?

Se eu criar um formulário de usuário do Excel VBA que gere dinamicamente um número variável de controles, como posso determinar a área utilizável do formulário para redimensioná-lo para ajustar os controles?

Uma captura de tela está anexada abaixo, seguida por um exemplo de código, mas as últimas linhas de código não funcionam.

Consigo escrever meu próprio código de dimensionamento automático para UserForm_Initialize(), mas isso não é possível se eu não encontrar a largura e a altura utilizáveis ​​do formulário. Sempre há uma discrepância, que sem dúvida inclui os tamanhos das bordas, sombras, barra de título, etc.

Eu entendo que o VBA é desorganizado com várias escalas de medição, como pixels, twips, polegadas, etc. Então seria útil se alguma resposta especificasse a escala que está sendo usada, para que eu possa chamar as funções de conversão corretas.

Encontrei esta postagem sobre os sistemas de coordenadas do VBA, que ajuda, mas não responde à minha pergunta: https://www.reddit.com/r/vba/comments/1arzvx8/coordinate_systems_in_vba_userform_controls/

Private Sub UserForm_Initialize()
    
    Dim ctls        As MSForms.Controls
    Dim ctl         As MSForms.Control
    Dim coll        As VBA.Collection
    Dim ctlCount    As Integer
    Dim colCount    As Integer
    Dim x           As Single
    Dim y           As Single
    Dim w           As Single
    Dim h           As Single
    Dim i           As Integer
    
    'Settings.
    colCount = 5
    w = 24
    h = 24
    
    'Get the objects.
    Set ctls = Me.Controls
    Set coll = New VBA.Collection
    
    'Add the buttons to a collection.
    ctlCount = ctls.Count
    For i = 0 To ctlCount - 1
        For Each ctl In ctls
            If ctl.TabIndex = i Then
                coll.Add ctl
            End If
        Next
    Next
    
    'Align the buttons.
    i = 0
    Do
        If i < ctlCount Then
            y = y + 1
            Do
                x = x + 1
                If x <= colCount Then
                    i = i + 1
                    Set ctl = coll.Item(i)
                    ctl.Left = (x - 1) * w
                    ctl.Top = (y - 1) * h
                    ctl.Width = 24
                    ctl.Height = 24
                Else
                    Exit Do
                End If
            Loop
            x = 0
        Else
            Exit Do
        End If
    Loop
    
    'Adjust the form size.
    Me.Width = (x + 1) * w      '### This does not work. ###
    Me.Height = (y + 1) * h     '### This does not work. ###
    
End Sub