Drag-Drop di un'immagine in una cella di una GridView

Mostriamo un semplice esempio per effettuare il trascinamento e rilascio di un'immagine in una cella di una GridView.
Su un Form è posta una GridView ed una PictureBox contenente un'immagine.

Public Sub Form_Open()

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


Public Sub PictureBox1_MouseDrag()
 
' Preleviamo e trasciniamo l'immagine contenuta nella "PictureBox":
  If Mouse.Left Then      
    Drag.Icon = Last.Picture      
    Last.Drag(Last.Picture.Image)    
  Endif

End


Public Sub GridView1_Drop()
 
' Rilasciamo nella cella della "GridView" l'immagine trascinata:
  GridView1[GridView1.RowAt(Drag.Y), GridView1.ColumnAt(Drag.X)].Picture = Drag.Icon
 
End