Mostrare un'immagine con il Drop del suo file in una PictureBox

Il caso è quello in cui si intende far mostrare da una PictureBox un'immagine, semplicemente trascinando il suo file, preso anche da una finestra esterna all'applicativo Gambas, e rilasciandolo all'interno della predetta PictureBox.

Mostriamo un semplice esempio:

Public Sub Form_Open()

' Impostiamo la proprietà ".Drop" a "Vero" per consentire l'attivazione dell'evento del "Drop":
   PictureBox1.Drop = True

End


Public Sub PictureBox1_Drop()

 Dim dati As String
  
  dati = Drag.Paste("text/uri-list")
  
' Raccogliamo la parte della stringa contenente il mero percorso del file immagine:
  dati = Scan(dati, "file://*")[0]
   
  PictureBox1.Picture = Picture.Load(Trim(dati))

End