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.

Esempio.

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("file_immagine.xxx")
    .i = .PaintRect(0, 0, 400, 100, Color.SetAlpha(Color.Blue, 180))
  End With

  p = i.Picture
 
  PictureBox1.Picture = p

End