Crear efecto Drag and Drop con DevExpress vb.Net

Primero creamos los metodos

Private Sub GridViewElegir_RowCellStyle(sender As Object, e As RowCellStyleEventArgs) Handles GridViewElegir.RowCellStyle
        Try
            If e.Column.Name = Nombre.Name Then
                If Not IsDBNull(e.CellValue) Then
                    If GridViewElegir.GetRowCellValue(e.RowHandle, "Color") = "TRANS" Then
                        e.Appearance.BackColor = Color.Transparent
                        e.Appearance.ForeColor = Color.Black
                    Else
                        e.Appearance.BackColor = ColorTranslator.FromHtml(GridViewElegir.GetRowCellValue(e.RowHandle, "Color"))
                        e.Appearance.ForeColor = ColorTranslator.FromHtml(GridViewElegir.GetRowCellValue(e.RowHandle, "ColorT"))
                    End If
                End If
            End If

        Catch ex As Exception
            MessageBox.Show("Error : " + ex.Message, "GridViewElegir_RowCellStyle")
        End Try
    End Sub