Try
            'Eintrag eine Zeile nach unten verschieben
            Dim sDGVRow() As Object = {Nothing, "", "", "", "", ""}
            Dim n As Integer
            Dim Ind As Integer
 
            Ind = Grid2.CurrentCell.RowIndex
            If Ind = Grid2.Rows.Count - 1 Then Exit Sub
 
            'sDGVRow füllen
            For n = 1 To UBound(sDGVRow)
                sDGVRow(n) = Grid2.Rows(Ind).Cells(n).Value
            Next
 
            Grid2.Rows.Insert(Ind + 2, sDGVRow)
 
            Grid2.Rows.Remove(Grid2.Rows(Ind))
 
            'Zeile wieder selektieren:
            Grid2.CurrentCell = Grid2.Rows(Ind + 1).Cells(1)
        Catch ex As Exception
        End Try