Base.Load

If IO.File.Exists("c:\k.txt") = True Then
Dim sr As IO.StreamReader = IO.File.OpenText("c:\k.txt")
Dim input1, input2, input3, input4 As String
input1 = sr.ReadLine
input2 = sr.ReadLine
input3 = sr.ReadLine
input4 = sr.ReadLine''读取文件中的坐标
Button1.Top = input1
Button1.Left = input2
TextBox1.Top = input3
TextBox1.Left = input4''用文件中的值来初始化控件在界面中的位置
sr.Close()
End If
End Sub



　　程序说明：在MenuItem4_Click 是在调整控件之后将控件的新位置保存到c;\k.txt文件中。form_load中的if作用是,如果是没有设置控件的新位置在初始化是将不会发现c;\k.txt文件，从而使用默认的参数来指定控件的位置。如果是有c;\k.txt文件存在就读取其中的参数来初始化控件的位置。在Form1_MouseUp中通过点击窗口中的位置来获得新的坐标，使控件移动到此坐标处。对于Enabled属性的使用是为了使控件在移动时不响应如click等的事件。

　　本文移动的控件是textbox和button两个控件，你可以按照本文提出的方法加入更多的控件，从而实现千人千面。

　　其实本人写这篇文章的一个主要目的是为了说明一个程序员不但要掌握牢固的技术，同时还要有创新的思想。正如国外的分析家指出"微软的成功在很大的程度上是依靠它的创新思维"，所以希望读了此文的读者在以后的开发过程中不要墨守成规！