Размеры UserForm на разных мониторах

[ru3000]

Помогите решить вопрос. Самому не одолеть.
Есть UserForm. Задача - чтобы эта форма отображалась корректно на мониторах с разным разрешением. Т.к. эта форма довольно большая, то на маленьких мониторах она вылезает за границы монитора.
Решение было найдено с помощью вычисления параметров монитора и с дальнейшим вычитанием из этих параметров.

Private Declare PtrSafe Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
Private Sub UserForm_Initialize()
    UserForm1.Height = GetSystemMetrics(1) - 400
    UserForm1.Width = GetSystemMetrics(0) - 800
End Sub

Но все-равно это не идеальное решение, если на мониторе 16x9 все нормально отображается, то на мониторе 16x10 - уже идет кривизна, не говорю уже про 4x3.
Если у кого-нибудь есть какие-то соображения поделитесь, плиз.

[VictorM]

А если выставлять конкретно размеры формы под каждое разрещение?
Вернее, у Вас даже не под разрешение, а под отношение сторон, я так понял

[ru3000]

Да, под отношение сторон. Изначально форма имеет размеры 800x600, отсюда и все проблемы.

[VictorM]

Не совсем понятна проблема
такая сложная форма, что нельзя ее просто пропорционально уменьшать или увеличивать?
"кривизна" это как?

[ru3000]

Сообщение от VictorM

нельзя ее просто пропорционально уменьшать или увеличивать?

Это простите как? А как вы предложите, что бы форма 800x600 на вылезала за границы монитора на маленьких ноутбуках?

[vikttur]

Проект отображался на двух типах мониторов, поэтому пошел по простому пути – изменение Zoom формы в зависимости от переменной:

Private Sub UserForm_Activate()
Me.Zoom = IIf(bfrm = False, "130", "78")
…

[doober]

А если так

Private Sub UserForm_Initialize()
    k = (GetSystemMetrics(1) - 100)
    kk = k * 600 / 800
    UserForm1.Height = kk
    UserForm1.Width = k
    
End Sub

[ru3000]

Сообщение от doober

А если так

Private Sub UserForm_Initialize()
    k = (GetSystemMetrics(1) - 100)
    kk = k * 600 / 800
    UserForm1.Height = kk
    UserForm1.Width = k
    
End Sub

Спасибо большое, все работает как надо!

[SAS888]

Не зависимо от размера монитора и установленного разрешения, вывести форму на весь экран можно так:

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Sub Main()
    ShowWindow FindWindow(vbNullString, UserForm1.Caption), 3&
End Sub