Dim p As PictureBox
        Dim path As String = System.Environment.GetEnvironmentVariable( _
          "SYSTEMROOT") + "\Winnt.bmp"
        Dim img As Image = Image.FromFile(path)
        Me.Height = img.Size.Height * 6
        For a As Integer = 0 To 4
            p = New PictureBox
            p.Size = New Size(img.Size)
            p.Image = img
            p.BorderStyle = BorderStyle.FixedSingle
            p.Location = New Point(20, (a * (p.Size.Height * 1.05) + 20))
            Me.Controls.Add(p)
        Next