'Benötigt werden: 2 Flexgrids, 1 Label
Private Sub Form_Load()
 
Label1.Visible = False
Me.ScaleMode = vbTwips
 
End Sub
 
Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As _
  Single, y As Single)
 
With MSFlexGrid1
  Label1.Move .Left + .CellLeft, .Top + .CellTop, .CellWidth, .CellHeight
  Label1.Caption = .Text
  Label1.Drag vbBeginDrag
End With
 
End Sub
 
Private Sub MSFlexGrid2_DragDrop(Source As Control, x As Single, y As Single)
 
With MSFlexGrid2
  .TextMatrix(.MouseRow, .MouseCol) = Label1.Caption
End With
 
End Sub

Gruss,

Zardoz