关于Label控件的拖拽功能
两个Label控件，我想做成的功能就是，这两个Label空间都是可以拖动的，比方说可以把Label1拖动，然后当Label1拖动到Label2上的时候，交换Label1和Label2上的内容，请问这个功能怎么实现呢？
请详细说明一下，谢谢了。
[解决办法]
把两个Label的DragMode属性设为 AutoMatic。
Private Sub Label1_DragDrop(Source As Control, X As Single, Y As Single)
Dim t As String
If Source Is Label2 Then
t = Label1.Caption
Label1.Caption = Label2.Caption
Label2.Caption = t
End If
End Sub
Private Sub Label2_DragDrop(Source As Control, X As Single, Y As Single)
Dim t As String
If Source Is Label1 Then
t = Label2.Caption
Label2.Caption = Label1.Caption
Label1.Caption = t
End If
End Sub
