Public Class frmButtonX
 
    Dim WithEvents btnBase As New Button With
        {.Parent = Me, .Size = New Drawing.Size(350, 50), 
         .Location = New Point(10, 10)}
 
    Dim WithEvents btnClose As New Button With
        {.Parent = btnBase, .Size = New Drawing.Size(60, 30), 
        .Location = New Point(270, 10), .Text = "Close"}
 
    Dim bmpText As New Bitmap(200, 30)
 
 
    Private Sub frmButtonX_Load(sender As Object, e As EventArgs) Handles _
      MyBase.Load
 
        Using g As Graphics = Graphics.FromImage(bmpText),
            br_red As New SolidBrush(Color.Red),
            br_green As New SolidBrush(Color.Green)
            g.Clear(Color.LightGray)
 
            g.DrawString("Das ", New Font("Arial", 10), br_red, 
                         New PointF(2, 2))
 
            g.DrawString("geht schon ", 
                         New Font("Courier", 12, FontStyle.Underline), 
                         br_green, New Point(40, 2))
 
            g.DrawString("irgendwie", New Font("Arial", 10), br_red, 
                         New PointF(130, 2))
        End Using
 
        btnBase.Image = bmpText
    End Sub
 
 
    Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles _
      btnClose.Click
        MsgBox("btnClose ist geclickt")
    End Sub
 
 
    Private Sub btnBase_Click(sender As Object, e As EventArgs) Handles _
      btnBase.Click
        MsgBox("btnBase ist geclickt")
    End Sub
 
End Class