Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        'UserControl1.Controls.Clear()
        'Place = 0
        Dim cmd As New MySqlClient.MySqlCommand
        'Dim returnValue As String
 
        Dim connect As New MySqlClient.MySqlConnection("Database=" & data & _
          ";Data Source=" & host & ";User Id=" & user & ";Password=" & pass & _
          "")
        Dim read As MySqlClient.MySqlDataReader
        connect.Open()
        Try
            cmd.Connection = connect
            cmd.CommandText = "SELECT comment FROM comment"
            read = cmd.ExecuteReader
            While read.Read()
                Dim Buttonx As New Button()
                Dim Textfield As New TextBox()
 
 
                Buttonx.Text = "Creating a Button"
                Buttonx.Location = New Point(5, Place)
                Buttonx.Size = New Size(75, 25)
                Textfield.Size = New Size(100, 25)
                Textfield.Location = New Point(80, Place)
                Textfield.Text = read.GetString(0)
 
                UserControl1.Width = 500
                UserControl1.Height = Place
 
 
                Place += 30
                VScrollBar1.Maximum = Place
 
 
                'TextBox1.Text = returnValue
                UserControl1.Controls.Add(Buttonx)
                UserControl1.Controls.Add(Textfield)
            End While
            read.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
 
        connect.Close()
 
    End Sub