Cách tự động thay đổi kích thước các Object trên 1 form

[thanchetvnt]

Chào các bạn,
Mình có 1 form với rất nhiều các Object. Minh muốn khi mở form này ở các máy có độ phân giải màn hình khác nhau thì tất cả các Object này cũng thay đổi tương ứng để trông nó đẹp hơn và không bị lớn hơn độn lớn của mạn hình. Mình đã đặt code cho mỗi Object đó như sau (ví dụ textbox1):
with me
.Textbox1.Width = .Textbox1.Width * Application.Width / 1050 * Application.Height / 600
.Textbox1.Height = .Textbox1.Height * Application.Width / 1050 * Application.Height / 600
.Textbox1.Top = .Textbox1.Top * Application.Width / 1050 * Application.Height / 600
.Textbox1.Left = .Textbox1.Left * Application.Width / 1050 * Application.Height / 600
.Textbox1.Font.Size = .Textbox1.Font.Size * Application.Width / 1050 * Application.Height / 600
end with
Nó đã có hiệu quả với số lượng Object ít. Nhưng với form có nhiều hơn 100 Object thì nó báo lỗi “Procedure too large”.
Có ai xử lý giúp mình với.
Xin cảm ơn.

 

[Hai Lúa Miền Tây]

Bạn tham khảo bài sau thử xem nhé
Vấn đề Zoom control khi Maximized, Minimized, Normal trong form