窗体为何没执行代码，或者代码失效？

Question

装载事件中：
Me.Width = Screen.Width
Me.Height = Screen.Height
Me.Left = 0
Me.Top = 0窗体不是满屏而是显示在屏幕的左边部分，点最大化才满屏，是什么原因？

Answer 1

完全代码：
Dim DevM As DEVMODE DevMerg& = EnumDisplaySettings(0&, 0&, DevM) change the colordepth, because a reboot will be necessary
DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_BITSPERPEL
DevM.dmPelsWidth = 640 
DevM.dmPelsHeight = 480 
DevM.dmBitsPerPel = 32 
erg& = ChangeDisplaySettings(DevM, CDS_TEST)
Select Case ergCase DISP_CHANGE_SUCCESSFUL
    erg = ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY)
  
End SelectMe.Width = Screen.Width       ‘调试发现me.width和me.height均为7200，但我明明是改
Me.Height = Screen.Height     ’变为640 X 480的分辨率呀？
Me.Left = 0
Me.Top = 0

Answer 2

你是要窗体一加载就取大化是不是啊？如果是的话这样子：me.windowState=2 不就行了！怎么要这样写啊？

Answer 3

你把你的代码放到窗体的resize事件中进行处理就行了。我刚才试验了一下，可以的！