[此贴子已经被作者于2006-2-9 10:30:26编辑过]

说实话，leon2，比griefforyou做的差好多，虽然我做不出来 ……

用这段代码可以随意拖动标签，满足你的要求，需要要把控件的名称改变一下
Public MoveTrue As Boolean, OldX As Long, OldY As Long
Private Sub label7_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

MoveTrue = True
OldX = X: OldY = Y

End Sub

Private Sub label7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If MoveTrue = True Then
Label7.Left = Label7.Left + X - OldX
Label7.Top = Label7.Top + Y - OldY
End If

End Sub

Private Sub label7_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MoveTrue = False
End Sub