Private Sub VSFlexgrid_OLEDragDrop(Data As VSFlex8Ctl.VSDataObject, Effect As _
  Long, ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, _
  ByVal Y As Single)
Dim MouseRow As Long
Dim strDaten As String
Dim DataValues() As String
Dim EndData() As String
Dim i As Integer
 
    On Error GoTo fehler
 
    MouseRow = VSFlexgrid.MouseRow
 
    If VSFlexgrid.RowSel = VSFlexgrid.FixedRows Then Exit Sub
 
    If (Data.GetFormat(vbCFText)) Then
 
        strDaten = Data.GetData(vbCFText)   ' DragDrop-Informationen speichern
 
        If (strDaten = "") Then Exit Sub
 
        DataValues = Split(strDaten, "|")
 
        For i = 1 To UBound(DataValues)
            EndData = Split(DataValues(i), ";")
 
            'ausgewählte zeile aus grid löschen ...
'            VSFlexgrid2.RemoveItem EndData(0) & vbTab & EndData(1) & vbTab & 
' EndData(2)
            fgAngebot.RemoveItem fgAngebot.MouseRow
 
            '... und in das andere Grid einfügen
            VSFlexgrid.AddItem EndData(0) & vbTab & EndData(1) & vbTab & _
              EndData(2)
        Next i
 
    End If
End Sub