Imporre un colore uniforme semitrasparente su una immagine

Per imporre un colore uniforme con effetto di semitrasparenza su una immagine, si utilizzerà la funzione Color.SetAlpha nel 5° parametro della funzione .PaintRect della Classe Image.

Nell'esempio, che segue, poniamo di avere un'immagine, alla quale vogliamo imporre un effetto uniforme di semitrasparenza con il colore blue su una parte di quell'immagine:

Public Sub Form_Open()

  Dim i As New Image
  Dim p As Picture

  With i = i.Load("/percorso/del/file/immagine")
    .i = .PaintRect(0, 0, 400, 100, Color.SetAlpha(Color.Blue, 180))
  End With

  p = i.Picture
 
  PictureBox1.Picture = p

End