标题：如何在BeforeOpenProject设置显示器分辨率

如何在BeforeOpenProject打开项目前设置显示器的分辨率为1024*768

If SysInfo.ScreenWidth < 1024 And SysInfo.ScreenHeight < 768 Then
   Dim Result As DialogResult
   Result = MessageBox.Show("运行本系统要求显示器分辨率不小于1024*768,你当前的显示器分辨率为:" & SysInfo.ScreenWidth & " * " & SysInfo.ScreenHeight & ",是否更改显示器分辨率?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
   If Result = DialogResult.Yes Then

      SysInfo.ScreenWidth = 1024 

      SysInfo.ScreenHeight = 768 

   else
      e.Cancel = True
   End If
End If

以上红色部分该如何设置？

1、没有办法

2、似乎也多余，有个提示就行了，而且如今想找个屏幕分辨率小于1024的电脑，几乎找不到。