目前总结了一下三种方法：
方法一：
分别获取，当前的屏幕的宽度和高度；
Dim aa As Integer = SystemInformation.PrimaryMonitorSize.Width
Dim bb As Integer = SystemInformation.PrimaryMonitorSize.Height
方法二：
Dim aa As Integer = My.Computer.Screen.WorkingArea.Width
Dim bb As Integer = My.Computer.Screen.WorkingArea.Height
方法三：
Dim aa As Integer = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width.ToString
Dim bb As Integer = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height.ToString 上面三种方法只是提供了三种思想，希望能够达到抛砖引玉的目的。