怎样得到当前的屏幕分辨率？ 

　　在程序设计中我们经常要改变窗体的大小，而这也依赖于屏幕的分辨率，下面的例子将演示如何得到当前屏幕的分辨率：

　　ResWidth = Screen.Width Screen.TwipsPerPixelX

　　ResHeight = Screen.Height Screen.TwipsPerPixelY

　　ScreenRes = ResWidth & "x" & ResHeight

　　ResWidth和ResHeight分别表示屏幕的宽和高，比如这样的结果：

　　800x600