Установить уровень прозрачности картинки.

[KingManiya]

Есть textbox1
Есть картинка dim pic as image= image.fromfile("путь до нужной картинки")
Есть кнопка
Как при нажатии по кнопке в picturebox1 занести картинку, но с уровнем прозрачности из textbox1?
Например textbox1=50 тогда картинка будет полупрозрачной. Если textbox1=10 то картинку будет видно, но плохо. ну и т.д.
Помогите пожалуйста кто знает.

[Nord777]

Код: Выделить всё

   Private Sub DrawWithAlpha(ByVal Transp As Integer, ByVal im As Image, ByVal G As Graphics, ByVal Pos As Point)
      If Transp < 0 Or Transp > 100 Then Throw New Exception("invalid param: Transp")

      Dim CM As New ColorMatrix()
      CM.Matrix33 = CSng(Transp / 100)

      Dim imageAttributes As New ImageAttributes()
      imageAttributes.SetColorMatrix(CM, ColorMatrixFlag.Default, ColorAdjustType.Bitmap)

      Dim R As New Rectangle(Pos.X, Pos.Y, im.Width, im.Height)
      G.DrawImage(im, R, 0, 0, im.Width, im.Height, GraphicsUnit.Pixel, imageAttributes)

   End Sub

[KingManiya]

Огромейшее спасибо. То что нужно