Private Sub sgrdResults_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
    Dim I As Long, N As Long, lLawID As Long
    ' Puffer leeren
    AllowedEffects = IIf(sSearchTyp = "lawpersons", vbDropEffectCopy, _
      vbDropEffectNone)
    If AllowedEffects = vbDropEffectNone Then Exit Sub
    Data.Clear
    ' Alle Ausgewählten Dateien einfügen
    For I = 0 To sgrdResults.SelCount
        N = sgrdResults.selRow(I)
        lLawID = val(sgrdResults.Text(N, "lawperson_id"))
        Data.Files.Add SaveFileBinary(Lawperson2VCF(lLawID), SlashAdd( _
          Folder_Temp) & "OIS_" & lLawID & ".vcf")
    Next I
 
    ' Datentyp setzen
    Data.SetData , vbCFFiles
 
End Sub

-------------------------------------------
Follow the White Rabbit !!!