1.获显示器的当期分辨：My.Computer.Screen.WorkingArea.Size，返回width，height

可以单独获取width或height

My.Computer.Screen.WorkingArea.Size.width

My.Computer.Screen.WorkingArea.Size.height

2.设置窗体位置

屏幕中央：Form1.StartPosition=FormStartPosition.CenterScreen

手动设置：Form1.StartPosition = FormStartPosition.Manual

左100,上100像素：Form1.Location = New Point(100,100)

单独设置左边距：Form1.Left = 300

单独设置右边距：Form1.top = 300

3．边距和窗体大小一起设置

Dim Myrect as new rectangle(200,100,300,300)

或单独设置

Dim myrect As New Rectangle

myrect.X = 200

myrect.Y = 100

myrect.Width = 300

myrect.Height = 300

假设我的form1窗体的大小是400*400，我要设置往屏幕四个角落停靠，往边上托，就可以自动停在角落

Private Sub MyNoteBook_Move(ByVal sender As Object,ByVal e As System.EventArgs) Handles Me.Move '设置窗体往四个角落停靠方法 Dim FormX As Int32 = My.Computer.Screen.WorkingArea.Width - 400 Dim FormY As Int32 = My.Computer.Screen.WorkingArea.Height - 400 If Me.Location.X < 0 And Me.Location.Y < 0 Then Me.Location = New Point(0,0) ElseIf Me.Location.X < 0 And Me.Location.Y > FormY Then Me.Location = New Point(0,FormY) ElseIf Me.Location.X > FormX And Me.Location.Y < 0 Then Me.Location = New Point(FormX,0) ElseIf Me.Location.X > FormX And Me.Location.Y > FormY Then Me.Location = New Point(FormX,FormY) End If End Sub