Private Sub Form_Load()
  TreeView1.OLEDropMode = 1
End Sub
 
Private Sub Grid1_CellClick(ByVal nRow As Long, ByVal nCol As Long, _
  ByVal Button As Integer, ByVal Shift As Integer)
 
  ' Bei Rechtsklick OLE Drag-Mode einleiten
  If Button = vbRightButton Then
    Grid1.OLEDrag
  End If
End Sub
 
Private Sub Grid1_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
  Dim I As Integer
 
  ' Erlaubte Aktionen festlegen
  AllowedEffects = vbDropEffectCopy Or vbDropEffectMove
 
  ' Daten-Format festlegen
  Data.SetData , vbCFFiles
 
  ' Datenzeilen hinzufügen
  For I = 0 To Grid1.SelCount - 1
    Data.Files.Add Grid1.List(Grid1.SelRow(I))
  Next I
End Sub
 
Private Sub TreeView1_OLEDragDrop(Data As MSComctlLib.DataObject, _
  Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
 
  Dim I As Integer
 
  ' Prüfen, ob es sich um Datenzeilen aus dem DataGrid handelt
  If Data.GetFormat(vbCFFiles) Then
    ' alle Datenzeilen (1 bis Files.Count)
    For I = 1 To Data.Files.Count
      ' Dateiname der Listbox hinzufügen
      TreeView1.Nodes.Add , , , Data.Files(I)
    Next I
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de