''' <summary>Nonsense-Klasse für Button-Hinzufügung </summary>
Public Class clsButton
    Inherits Button
 
    ''' <summary>Button in die Controls-Auflistung  eines Formulars 
    ' eintragen </summary>
    ''' <param name="f">Formular, in dessen Controls-Auflistung der Button 
    ' eingetragen wird</param>
    Public Sub AddMe(ByVal f As Form)
        f.Controls.Add(Me)
 
        'Buttoneigenschaften festlegen
        With Me
            .Location = New Point(100, 100)
            .Size = New Size(200, 30)
            .Text = "Klick mich, ich habe keinen Handler"
        End With
 
        'Formulartext auf 2 Arten zuweisen
        Me.Parent.Text = "ich bin die Form"
        f.Text &= "   - ich auch"
    End Sub
 
End Class