Option Explicit
Public WithEvents GroupeLbl As MSForms.Label
Public WithEvents GroupeTb As MSForms.TextBox
Dim i&, Txt$, D As Object, Effect
Private Sub GroupeLbl_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal x As Single, ByVal Y As Single)
If Button = 1 Then
For i = 1 To 3
Txt = GroupeLbl.Caption
Next i
Set D = New DataObject
D.SetText Txt
Effect = D.StartDrag
End If
End Sub
Private Sub GroupeTb_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal x As Single, ByVal Y As Single, ByVal DragState As Long, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
Cancel = True
Effect = 1
End Sub
Private Sub GroupeTb_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, ByVal Action As MSForms.fmAction, ByVal Data As MSForms.DataObject, ByVal x As Single, ByVal Y As Single, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
Cancel = True
Effect = 1
GroupeTb.Value = Data.GetText
End Sub