Drag-Drop di un testo da una cella a un'altra di una GridView

Per spostare un testo da una cella a un'altra della medesima GridView, possiamo adottare il seguente codice:

Public Sub Form_Open()

 With GridView1
   .Columns.Count = 3
   .Rows.Count = 3
   .Drop = True
 End With

 GridView1[1, 0].Text = "testo qualsiasi"
 GridView1.Columns[0].W = -1

End


Public Sub GridView1_MouseDrag()

' Preleviamo e trasciniamo il testo individuando precisamente la cella della "GridView":
 GridView1.Drag(GridView1[GridView1.RowAt(Mouse.Y), GridView1.ColumnAt(Mouse.X)].Text, "text/html")

End


Public Sub GridView1_Drop()

' Rilasciamo nella nuova cella della "GridView" il testo prelevato dall'altra cella:
 GridView1[GridView1.RowAt(Drag.Y), GridView1.ColumnAt(Drag.X)].Text = Drag.Data

' Adeguiamo la larghezza della colonna della nuova cella al testo in essa rilasciato:
 GridView1.Columns[GridView1.ColumnAt(Drag.X)].W = -1

 ' Cancelliamo il testo presente nella cella, dalla quale è stato trascinato:
 GridView1[GridView1.RowAt(Mouse.Y), GridView1.ColumnAt(Mouse.X)].Text = Null

End