Public Class Panel_Without_Flickering
 
    Inherits Panel
 
    Public Sub New()
        Me.DoubleBuffered = False
        Me.ResumeLayout(False)
    End Sub
 
    ' Caution:
    ' This turns off any Flicker effect
    ' ...but also reduces the performance (speed) of the control about 30% slower.
    ' This don't affect to the performance of the application, only to the performance of this control.
    Protected Overrides ReadOnly Property CreateParams() As CreateParams
        Get
            Dim cp As CreateParams = MyBase.CreateParams
            cp.ExStyle = cp.ExStyle Or &H2000000
            Return cp
        End Get
    End Property
 
End Class

Public Class MyControl  ' Name of this control.
 
    Inherits PictureBox ' Name of the inherited control.
 
#Region " New "
 
    Public Sub New()
        Me.DoubleBuffered = True
        Me.SetStyle(ControlStyles.ResizeRedraw, False)
        Me.Name = "MyControl"
        'Me.Text = "Text"
        'Me.Size = New Point(60, 60)
    End Sub
 
#End Region
 
#Region " Properties "
 
    Private _Description As String = String.Empty
 
    ''' <summary>
    ''' Add a description for this control.
    ''' </summary>
    Public Property Description() As String
        Get
            Return _Description
        End Get
        Set(ByVal Value As String)
            Me._Description = Value
        End Set
    End Property
 
#End Region
 
#Region " Event handlers "
 
    ' Private Sub MyControl_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
    '    Me.ForeColor = Color.White
    '    Me.BackColor = Color.CadetBlue
    ' End Sub
 
    ' Protected Overrides Sub OnPaint(ByVal pEvent As PaintEventArgs)
    '    MyBase.OnPaint(pEvent)
    '    If Me.Checked Then
    '       pEvent.Graphics.FillRectangle(New SolidBrush(Color.YellowGreen), New Rectangle(3, 4, 10, 12))
    '    End If
    ' End Sub
 
#End Region
 
#Region " Methods / Functions "
 
    ''' <summary>
    ''' Show the autor of this control.
    ''' </summary>
    Public Sub About()
        MsgBox("Elektro H@cker")
    End Sub
 
#End Region
 
End Class

Eso es a lo que me refiero y con el code que me distes arriba ya se puede? 

panel1.controls.add(MyNewPanel)

A ver no... Las picture box tienen que ser infinitas... Las picturebox se tienen que ir "creando" conforme el usuario vaya instalando Modpacks, (es algo asi como un acceso directo) luego el usuario la selecciona y le da a jugary se ejecuta el juego.  

    Dim chk_() As CheckBox
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim Array_Size As Integer = 300 'change this for the number of controls that will appear
        ReDim chk_(Array_Size)
 
        For chk_num = 0 To Array_Size
            Application.DoEvents()
            chk_(chk_num) = New CheckBox
            chk_(chk_num).Text = "Checkbox " + chk_num.ToString
            chk_(chk_num).Top = 20 * chk_num
            Me.Controls.Add(chk_(chk_num))
        Next
 
    End Sub

For i as int32 = 1 to (valor)
   generar checkboxes
loop

        Dim oDirectContent As iTextSharp.text.pdf.PdfContentByte = oPdfWriter.DirectContent
        Dim oPdfReader As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader(sInFilePath)

            Try
                oPdfDoc.Close()
                oPdfWriter.Close()
            Catch ex As Exception
 

Nombre=PicBox
Dimensiones=300,300
BackColor=255,255,255

dim picture_name as string
dim picture_dimensions as point
dim picture_color as color 
 
Private sub leer_ini()
    (   
    Aquí un procedimiento para leerl os valores del ini:
        picture_name = valor1 del ini
        picture_dimensions = new point(valor2 del ini.SPLIT(","))
        picture_color = color.fromargb(valor3 del ini.SPLIT(","))
    )
end sub
 
form_load()
    leer_ini()
    dim MyPictureBox as new picturebox
    MyPictureBox.name = picture_name 
    MyPictureBox.size= picture_dimensions 
    MyPictureBox.color= picture_color 
    me.controls.add(MyPictureBox )
end sub

My.Computer.FileSystem.WriteAllText("Test.txt", String.Join(vbnewline, MiArray), False)

#Region " Port Scan "
 
    ' [ Port Scan Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' MsgBox(Port_Scan("84.126.113.10", 80))
    ' MsgBox(Port_Scan("84.126.113.10", 80, Net.Sockets.ProtocolType.Udp))
 
    Private Function Port_Scan(ByVal IP As String, ByVal Port As Int32, _
                               Optional ByVal Type As System.Net.Sockets.ProtocolType = Net.Sockets.ProtocolType.Tcp) As Boolean
 
        Dim Open As Boolean
 
        Try
            Dim socket As New System.Net.Sockets.Socket(System.Net.Sockets.AddressFamily.InterNetwork, _
                                                        System.Net.Sockets.SocketType.Stream, Type)
            socket.Connect(IP, Port)
            Open = socket.Connected
            socket.Disconnect(False)
            Return Open
        Catch ex As Exception
            MsgBox(ex.Message)
            ' Return False
        End Try
 
    End Function
 
#End Region

#Region " Port Range Scan "
 
    ' [ Port Range Scan Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' For Each Open_Port In Port_Range_Scan("84.126.113.10, 1, 5000) : MsgBox(Open_Port) : Next
 
    Private Function Port_Range_Scan(ByVal IP As String, ByVal Port_Start As Int32, ByVal Port_End As Int32, _
                                     Optional ByVal Type As System.Net.Sockets.ProtocolType = Net.Sockets.ProtocolType.Tcp _
                                    ) As List(Of String)
 
        Dim Open_Ports_List As New List(Of String)
 
        Try
            For Port As Int32 = Port_Start To Port_End
                Dim socket As New System.Net.Sockets.Socket(System.Net.Sockets.AddressFamily.InterNetwork, _
                                                     System.Net.Sockets.SocketType.Stream, Type)
                socket.Connect(IP, Port)
                If socket.Connected Then Open_Ports_List.Add(Port)
                socket.Disconnect(False)
            Next Port
            Return Open_Ports_List
        Catch ex As Exception
            MsgBox(ex.Message)
            Return Nothing
        End Try
 
    End Function
 
#End Region