Imports System.Drawing.Drawing2D
Public Class Form1
    Dim bm1, bm2, bm3 As New Bitmap(200, 200)
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize
        Using g As Graphics = Graphics.FromImage(bm1)
            g.Clear(Color.Red)
            For i As Int32 = 0 To 180 Step 20
                g.FillRectangle(Brushes.Black, i, i, 20, 20)
                g.FillRectangle(Brushes.Black, 0, i, 200, 4)
            Next
        End Using
        Dim r As New Rectangle(0, 0, 200, 200)
        Using g As Graphics = Graphics.FromImage(bm2), lb As New _
          LinearGradientBrush(r, Color.Blue, Color.Yellow, _
          LinearGradientMode.ForwardDiagonal)
            g.FillRectangle(lb, r)
        End Using
        PictureBox1.Image = bm1
        PictureBox2.Image = bm2       
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Using g As Graphics = Graphics.FromImage(bm3)
            g.DrawImage(bm2, 0, 0)
            bm1.MakeTransparent(Color.Red)
            g.DrawImage(bm1, 0, 0)
        End Using
        PictureBox3.Image = bm3
    End Sub
End Class