Imports System
Public Class Form1
 
    Friend Picture1(1, 100) As Bitmap
 
 
    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles PictureBox2.Click
        Dim bmp As Bitmap
        bmp = Picture1(1, 100)
 
        Me.PictureBox2.Image = bmp
    End Sub
 
 
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles PictureBox1.Click
        Dim bmp As Bitmap
        Dim gs As System.Drawing.Graphics
        bmp = New Bitmap(150, 150)
 
        gs = Graphics.FromImage(bmp)
        gs.FillRectangle(Brushes.Black, 20, 20, 110, 110)
        Me.PictureBox1.Image = bmp
        Picture1(1, 100) = bmp
 
    End Sub
End Class