Public Class ucButtons
 
    Public Sub New(ParamArray btnTexte() As String)
        InitializeComponent()
 
        Dim t As Integer
        For Each text As String In btnTexte
            t += 30
            Dim btn As New Button With _
               {.Parent = Me, .Text = text, .Top = t, .Width = 300}
            AddHandler btn.Click, AddressOf buttonclick
            AddHandler btn.Paint, AddressOf buttonpaint
        Next text
        Me.Height = t + 30
        Me.Width = 320
    End Sub
 
 
    Private Sub buttonclick(ByVal sender As Object, e As EventArgs)
        MessageBox.Show(DirectCast(sender, Button).Text & " ist angeclickt" & _
          "worden")
    End Sub
 
 
    Public Sub buttonpaint(ByVal sender As Object, e As PaintEventArgs)
 
        Using br As New SolidBrush(Color.Red), _
              brt As New SolidBrush(Color.Black)
 
            e.Graphics.FillRectangle(br, e.ClipRectangle)
 
            e.Graphics.DrawString(DirectCast(sender, Button).Text, _
                    New Font("Arial", 10), brt, _
                    e.ClipRectangle.Top + 2, e.ClipRectangle.Left + 2)
        End Using
    End Sub
End Class

Public Class frmButtons
 
    Dim ucb As New ucButtons _
         ("Wo", "liegt", "das", "Problem?") With {.Parent = Me}
 
End Class