主题：窗体全屏显示

方法一：窗口设置最大化，如

forms("窗口1").baseform.windowstate = 2

方法二：动态设置窗口大小

Dim frm = forms("窗口1").baseform
frm.windowstate = 0
frm.left = 0
frm.top = 0
frm.width = SysInfo.ScreenWidth
frm.height = SysInfo.ScreenHeight
frm.topmost = True