1、启动VB6.0，建立标准exe程序
2、在这里，先把窗口的BorderStly属性设置成None，即去标题
3、这一步要添加几个控件。在 窗体 上添加一个图片控件Picture1.在所添加的 Picture1控件 上再添加一个 Label1标签控件。特别要注意控件的位置。
4、'添加第一段代码。注意代码的位置。Dim LX As Integer, LY As Integer, MX As Integer, MY As Integ髫潋啜缅er, BM As BooleanPrivate Sub Form_Load()'这里只是设置一下控件的属性，也可以自己在外面设置好Picture1.Width = Form1.WidthPicture1.Height = 280Picture1.Top = 0Picture1.Left = 0Picture1.BorderStyle = 0Picture1.BackColor = RGB(0, 100, 200)Form1.BackColor = RGB(0, 150, 210)Label1.Width = Form1.WidthLabel1.Height = 280Label1.Top = 0Label1.Left = 0Label1.BorderStyle = 0Label1.BackStyle = 0End Sub
5、'添加移动窗口的代码,这段可以直接复制进去，但呀稍微注意一下不要重复事竭惮蚕斗件Private Sub Lab髫潋啜缅el1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)LX = XLY = YBM = TrueEnd SubPrivate Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)MX = XMY = YIf BM = True Then Form1.Left = Form1.Left + (MX - LX) Form1.Top = Form1.Top + (MY - LY)End IfEnd SubPrivate Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)BM = FalseEnd Sub
6、代码添加完了之后，就可以运行了，效果如图
7、补充说明一下，把窗口的BorderStley设置成None，在程序运行后，在任务栏上是不会显示运行的程序的，也就是电脑屏幕下方不会显示所运行的窗体，如果要显示，就要改一下窗口的ShowInTaskbar属性，改为Ture，如图。如果还不明白我的意思，可以对比一下不修改属性和修改属性后的区别
8、代码并不是很复杂，这是利用了Lable标签控件的几个特点，在明白了移动代码的原理之后，也可以不用Picture图片控件的，可以把Lable控件直接画在窗体上，再把Lable控件的大小设置成窗口的大小，这样就不限于只能在标题处移动窗口了。