通过屏幕分辨率更改表单大小

Question

我有一个复选框，可以调整我的表单以显示其他设置，但在我的显示屏上看起来与我的朋友显示完全不同。他能够在我的屏幕上看到更多的方式。他有双显示器桌面，而我在笔记本电脑上运行。我用这段代码 -

代码：

Private Sub HuraCheckBox1_CheckedChanged_1(sender As Object) Handles HuraCheckBox1.CheckedChanged
        If HuraCheckBox1.Checked = True Then Me.Size = New Size(1145, 642) Else Me.Size = New Size(409, 642)
    End Sub

如果您需要我的意思的照片，我可以提供一个：）

任何帮助将不胜感激，谢谢！