各位大侠有谁知道如何,程序运行后还能让用户移动控件的方法?

[swed]

比如说让用户移动在窗体上的一个标签,可以让用户任意摆放.

[668]

Option Explicit
Private labelx As Single
Private labely As Single

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
labelx = X
labely = Y
End If

End Sub

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Label1.Left = Label1.Left + (X - labelx)
Label1.Top = Label1.Top + (Y - labely)
End If
End Sub