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