如果不用API的话 ,将就用以下方法
Private m_pointS As Point '声明一个全局变量记录 窗口启动时的坐标
Private Sub Form1_Move(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Move
Me.Location = m_pointS '在窗口移动的事件中 设置窗口坐标为启动时的坐标
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
m_pointS = Me.Location '窗口启动时 记录下坐标
End Sub