Dim lst As New ImageList
    lst.ImageSize = New Size(100, 200)
 
    Dim bmp As New Bitmap(lst.ImageSize.Width, lst.ImageSize.Height)
 
    Using g As Graphics = Graphics.FromImage(bmp)
        g.Clear(Color.LightGray)
    End Using
 
    lst.Images.Add("myBitmap", bmp)
 
    PictureBox1.Image = lst.Images(0)