full screen userform with change resuloation

[أبو چيداء]

اريد كود يعمل لليوزرفورم بكامل الشاشة حتى لو تغير حجم الشاشة او لو فتحت اليوزر من على جهاز اخر

[احمدزمان]

السلام عليكم و رحمة الله وبركاته

كود منقول من هذا المنتدى

Private Sub UserForm_Initialize()
With UserForm1
.Width = ActiveWindow.Width
.Height = ActiveWindow.Height
End With
End Sub