picturebox的Image属性
Dim canvas As Image = PictureBox2.Image
Dim g As Graphics = Graphics.FromImage(PictureBox2.Image)
'半透明
g.DrawImage(CreateTranslucentImage(Image.FromFile("../../image/5.png"), currentAlphaPercent * 0.01F), New Point(0, 0))
PictureBox2.Image = canvas