主题：有关根据分辨率自动调整窗口大小问题。

例如用1024*768的分辨率设计了一个独立或模式窗口，希望在不同分辨率下，能自动缩放窗口，可以设置窗口的AfterLoad事件：

Dim w As Integer = sysinfo.ScreenWidth
Dim h As Integer = Sysinfo.ScreenHeight
With e.Form.BaseForm       ‘这行会报错’

   .Width = .Width / 1024 * w
    .Height = .Height /768 * h
End With