يوجد لدي بطئ في تحميل الصور داخل FlowLayoutPanel1 يوجد لدي اكثر من 100 صنف

PHP كود :

Private Sub LoadData()
        FlowLayoutPanel1.Controls.Clear()
        If _action = "StartUp" Then Cmd = New OleDbCommand("SELECT pic,ID,ProductNameA,ProductNameE from Proudect Where ProductNameA like '%" & TextSerch.Text & "%' ", conn)
        If _action = "Search1" Then Cmd = New OleDbCommand("SELECT pic,ID,ProductNameA,ProductNameE from Proudect Where id_Proudect_items =" & _query1 & "", conn)
        conn.Open()
        rdr = Cmd.ExecuteReader(CommandBehavior.CloseConnection)
        While rdr.Read
            Dim len As Long = rdr.GetBytes(0, 0, Nothing, 0, 0)
            Dim array(CInt(len)) As Byte
            rdr.GetBytes(0, 0, array, 0, CInt(len))
            pic = New PictureBox
            pic.Width = 150
            pic.Height = 150
            pic.BackgroundImageLayout = ImageLayout.Stretch
            pic.Tag = rdr.Item("ID").ToString
            AddHandler pic.Click, AddressOf lblD_Click
            '-----------------------------------------------------
            lblD1 = New Label
            lblD1.Font = New Font("Tahoma", 10, FontStyle.Bold)
            lblD1.ForeColor = Color.FromArgb(72, 4, 156)
            lblD1.BackColor = Color.GhostWhite
            lblD1.Dock = DockStyle.Top
            lblD1.Tag = rdr.Item("ID").ToString
            lblD1.Text = rdr.Item("ID").ToString
            '-----------------------------------------------------
            lblD = New Label
            lblD.Font = New Font("Tahoma", 9, FontStyle.Bold)
            lblD.ForeColor = Color.FromArgb(72, 4, 156)
            lblD.BackColor = Color.GhostWhite
            lblD.Dock = DockStyle.Bottom
            lblD.Tag = rdr.Item("ID").ToString
            lblD.Text = rdr.Item("ProductNameE").ToString & "-" & rdr.Item("ProductNameA").ToString
            AddHandler lblD.Click, AddressOf lblD_Click
            '-----------------------------------------------------
            Dim ms As New System.IO.MemoryStream(array)
            Dim bitmap As New System.Drawing.Bitmap(ms)
            pic.BackgroundImage = bitmap
            '-----------------------------------------------------
            pic.Controls.Add(lblD)
            pic.Controls.Add(lblD1)
            FlowLayoutPanel1.Controls.Add(pic)
            '--------------------------------------------------------------------------------------------------------------
        End While
        rdr.Close()
        conn.Close()
        FlowLayoutPanel1.AutoScroll = True

PHP كود :

Private Sub LoadData()
    FlowLayoutPanel1.Controls.Clear()
    Try
        conn.Open()
        Dim query As String = ""

        If _action = "StartUp" Then
            query = "SELECT pic, ID, ProductNameA, ProductNameE FROM Proudect WHERE ProductNameA LIKE '%" & TextSerch.Text & "%'"
        ElseIf _action = "Search1" Then
            query = "SELECT pic, ID, ProductNameA, ProductNameE FROM Proudect WHERE id_Proudect_items = " & _query1
        End If

        Dim cmd As New OleDbCommand(query, conn)
        Dim rdr As OleDbDataReader = cmd.ExecuteReader()

        While rdr.Read
            Dim len As Long = rdr.GetBytes(0, 0, Nothing, 0, 0)
            Dim array(CInt(len)) As Byte
            rdr.GetBytes(0, 0, array, 0, CInt(len))

            Dim ms As New System.IO.MemoryStream(array)
            Dim bitmap As New System.Drawing.Bitmap(ms)

            Dim pic As New PictureBox
            pic.Width = 150
            pic.Height = 150
            pic.BackgroundImageLayout = ImageLayout.Stretch
            pic.BackgroundImage = bitmap
            pic.Tag = rdr("ID").ToString()

            Dim lblD1 As New Label
            lblD1.Font = New Font("Tahoma", 10, FontStyle.Bold)
            lblD1.ForeColor = Color.FromArgb(72, 4, 156)
            lblD1.BackColor = Color.GhostWhite
            lblD1.Dock = DockStyle.Top
            lblD1.Tag = rdr("ID").ToString()
            lblD1.Text = rdr("ID").ToString()

            Dim lblD As New Label
            lblD.Font = New Font("Tahoma", 9, FontStyle.Bold)
            lblD.ForeColor = Color.FromArgb(72, 4, 156)
            lblD.BackColor = Color.GhostWhite
            lblD.Dock = DockStyle.Bottom
            lblD.Tag = rdr("ID").ToString()
            lblD.Text = rdr("ProductNameE").ToString() & "-" & rdr("ProductNameA").ToString()

            pic.Controls.Add(lblD)
            pic.Controls.Add(lblD1)
            AddHandler pic.Click, AddressOf lblD_Click

            FlowLayoutPanel1.Controls.Add(pic)
        End While

        rdr.Close()
    Catch ex As Exception
        ' يمكنك إدراج رمز يعالج الخطأ هنا
    Finally
        conn.Close()
    End Try

    FlowLayoutPanel1.AutoScroll = True
End Sub