vb程序如何让设计好的程序，自动适应各种分辨率的屏幕？

简单的如下【文本框为最大屏幕长宽】：
text1.width=screen.width
text1.height=screen.height

定义一个全局变量用来保存缩放倍数，当窗体大小改变时，用For Each Obj In frmMain ..... Next 语句来缩放每一个控件。

编写一个过程，在这个过程中获取系统分辨率，根据分辨率设置窗体大小、各控件的位置、大小，如果是数组控件可以使用循环，可以说没有捷径。
缺点是根据显示器的大小不同，可能会出现有些控件显示失真的问题，看起来很不舒服，我给很多朋友做过一些程序，一般不会这样做的。