关于Label控件的拖拽功能,该如何处理

关于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