استدعاء من جدولين داخل اداه FlowLayoutPanel برجاء الافادة للضرورة جداً

كود :
 Public Sub load_users()

        con.Close()

        FlowLayoutPanel1.AutoScroll = True

        FlowLayoutPanel1.Controls.Clear()



        cmd = New SqlCommand("select * from users where name_Branches ='" & frm_home.BarStaticItem2.Caption & "' and not fullname_user ='" & frm_home.BarStaticItem4.Caption & "' ORDER BY on_off", con)

        dr = cmd.ExecuteReader

        con.Open()

        While dr.Read()

            ' خصائص الزر واستدعاء البيانات

            Dim btt = New Guna.UI2.WinForms.Guna2Button

            btt.Size = New Size(245, 60)

            btt.Font = New Font("GE SS Two Light", 12, FontStyle.Bold)

            Label11.Text = dr.Item("id_user").ToString

            btt.Tag = dr.Item("id_user").ToString

            btt.BackColor = Color.Transparent

            btt.FillColor = Color.FromArgb(0, 62, 114)

            btt.AutoRoundedCorners = True

            Label10.Text = dr.Item("fullname_user").ToString

            btt.TextAlign = HorizontalAlignment.Left

            Label1.Text = dr.Item("sex_user").ToString

            Label2.Text = dr.Item("on_off").ToString



            'جلب صوره ذكر او انثي ومتصل او لا

            If Label1.Text = "ذكر" And Label2.Text = "متصل" Then

                btt.Image = My.Resources.راجل_اخضر

            ElseIf Label1.Text = "ذكر" And Label2.Text = "مغلق" Then

                btt.Image = My.Resources.راجل_احمر

            ElseIf Label1.Text = "انثي" And Label2.Text = "مغلق" Then

                btt.Image = My.Resources.بنت_احمر

            ElseIf Label1.Text = "انثي" And Label2.Text = "متصل" Then

                btt.Image = My.Resources.بنت_اخضر

            End If



            con.Close()



            'استدعاء عدد الرسائل الغير مقروءه

            Dim dt As New DataTable

            dt.Clear()

            ad = New SqlDataAdapter("select massage_report1 from massge_chat where id_user1 = '" + Label11.Text + "' and  id_user2 = '" + frm_home.BarStaticItem12.Caption + "'  ", con)

            ad.Fill(dt)

            If IsDBNull(dt(0)(0)) = True Then

                Label12.Text = 0

            Else

                Label12.Text = dt(0)(0)

            End If

            btt.Text = Label10.Text & " ( " & Label12.Text & " )"

            btt.ImageAlign = HorizontalAlignment.Right

            btt.ImageSize = New Size(57, 57)

            btt.ImageOffset = New Size(-8, 0)

            FlowLayoutPanel1.Controls.Add(btt)

            btt.Cursor = Cursors.Hand

        End While

        Debug.Close()

        con.Close()

    End Sub