While rs.Read
            With GroupBox1.Controls
                BT = New Button
                With BT
                    .Name = CStr(rs(0))
                    .Image = Image.FromFile(ImagePhat + CStr(LCase(rs(0))) + _
                      ".jpg")
                    .ImageAlign = ContentAlignment.TopCenter
                    .Text = CStr(rs(0))
                    .TextAlign = ContentAlignment.BottomCenter
                    .Size = New System.Drawing.Size(120, 80)
                    .Location = New System.Drawing.Point(15 + ((RSi - 1) Mod 4) _
                      * (.Size.Width + 10), _
                        20 + (CInt(System.Math.Floor((RSi - 1) / 4))) * ( _
                        .Size.Height + 10))
                End With
                .Add(BT)
            End With
            RSi = RSi + 1
        End While