Rendere trasparente una immagine gradualmente

Da Gambas-it.org - Wikipedia.

Per rendere trasparente in modo graduale un'immagine, posta in una PictureBox, si utilizzerà il Metodo ".Opacity()" della Classe Image in un ciclo, diminuendo gradatamente il valore nel suo unico parametro ad ogni giro.

Mostriamo un semplice esempio:

Public Sub Form_Open()
 
 Dim im, im2 As Image
 Dim f As Float = 1.00
 
  Me.Show
 
  im = Image.Load("/percorso/della/immagine")
  
  While f > -0.01
    im2 = im.Copy()
    im2.Opacity(f)
    PictureBox1.Picture = im2.Picture
' Diminuiamo il valore da passare al Metodo ".Opacity()":
    f -= 0.01
' Poniamo un'attesa di 300 millisecondi:
    Wait 0.03
  Wend
  
End