Option Compare Database
Option Explicit
 
Private nTimerAction As Long

Private Sub Form_Load()
  ...
 
  Grid1.OLEDropMode = 1
  Grid1.AllowMultiSelect = True
 
  Grid2.OLEDropMode = 1
End Sub

Private Sub Grid1_CellClick(ByVal nRow As Long, ByVal nCol As Long, _
  ByVal Button As Integer, ByVal Shift As Integer)
 
  If Button = 2 Then
    ' bei Rechtsklick - Drag-Vorgang starten
    nTimerAction = 2
    Me.TimerInterval = 100
  End If
End Sub

Private Sub Grid1_OLEStartDrag(Data As Object, AllowedEffects As Long)
  Dim I As Integer
 
  ' Erlaubte Aktionen festlegen
  AllowedEffects = 1 Or 2
 
  ' Daten-Format festlegen
  Data.SetData , 15
 
  ' Einträge hinzufügen
  For I = 0 To Grid1.SelCount - 1
    Data.Files.Add 'Grid1.List(Grid1.SelRow(I))
  Next I
End Sub

Private Sub Grid2_OLEDragDrop(Data As Object, Effect As Long, Button As _
  Integer, _
  Shift As Integer, x As Single, Y As Single)
 
  Dim I As Integer
 
  Dim nRow As Long
  nRow = Grid2.GetRowFromCursor
 
  ' Prüfen, ob es sich um korrekte Daten handelt
  If Data.GetFormat(15) Then
    ' alle Einträge (1 bis Files.Count)
    For I = 1 To Data.Files.Count
      ' Einträge der Listbox hinzufügen
      Grid2.AddItem Data.Files(I), nRow
    Next I
  End If
End Sub

Private Sub Form_Timer()
  ' DataGrid-Ansicht aktualisieren
  Me.TimerInterval = 0
 
  Select Case nTimerAction
    Case 1
      ' Filter setzen
      SetFilter
    Case 2
      ' OLE-Drag
      Grid1.OLEDrag
  End Select
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de