Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
Dim a = Screen.PrimaryScreen.Bounds.Width.ToString
Dim b = Screen.PrimaryScreen.Bounds.Height.ToString
Dim c = Size
MessageBox.Show(c.ToString & “,” & a & "," & b)
End Sub
弹出屏幕的大小