'获取屏幕分辨率
       Dim x,y As Long
        x = Screen.PrimaryScreen.Bounds.Width.ToString
        y = Screen.PrimaryScreen.Bounds.Height.ToString
       '获取窗体位置
     x = Me.Location.X.ToString()
       y = Me.Location.Y.ToString()
       '设置窗体位置
     Me.SetDesktopLocation(80,80)