Расположите две пользовательские формы без пробелов между ними

Question

Как я могу настроить позиции пользовательских форм, чтобы размещать их рядом друг с другом, когда Intialized, т. Е. Удаляет пространство между ними.

Из ответа я попытался это, но он не работает

CIF.Show 
With CIF 
    .Top = Application.Top + 5 
    .Left = Application.Left + 10 
End With 

Instructions.Show 
With Instructions 
    .Top = Application.Top + 5 
    .Left = CIF.Left + CIF.Width 
End With 

Answer 1

Установите Left вариант второй формы к Left первой формы + Width из первого

UserForm2.Left = UserForm1.Left + UserForm1.Width 

В Windows 7 мне пришлось добавить еще 7 пикселей, вот так:

UserForm2.Left = UserForm1.Left + UserForm1.Width + 7 

Вы, возможно, придется изменить это в зависимости от операционной системы

Answer 2

Вы должны изменить StartUpPosition свойство Manual (значение = 0, я считаю). Затем вы можете отрегулировать верхнее и левое положение, чтобы удалить зазор

Answer 3

Работает ли это?

Sub test() 
With CIF 
.Show vbModeless 
.Left = .Left - .Width/2 
End With 
With Instructions 
.Show vbModeless 
.Left = .Left - .Width/2 
End With 
Unload CIF 
Unload Instructions 
End sub 

ОБНОВЛЕНО:
Чтобы избежать дублирования
кажется, есть величина постоянная 7 среди кнопки закрытия и границы UserForm. После этого следует обратиться к нему (не имеет значения размер пользовательской формы).

Sub test() 
With CIF 
.Show vbModeless 
.Left = .Left - .Width/2 
End With 
With Instructions 
.Show vbModeless 
.Left = CIF.Left + CIF.Width + 7 
End With 
Unload CIF 
Unload Instructions