Форматирование текста кнопки (надпись разными шрифтами)

Dim WithEvents lbl As Label
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim lbl As Label = New Label With {.Location = New Point(10, 10), .BackColor = Color.Transparent, .Text = "как-то так..."}
        Button1.Controls.Add(lbl)
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim lbl As Label = New Label With {.Location = New Point(10, 10), .BackColor = Color.Transparent, .Text = "как-то так..."}
        AddHandler lbl.Click, AddressOf Button1_Click
        Button1.Controls.Add(lbl)
    End Sub
 
    Private Sub Button1_Click() Handles Button1.Click
        MsgBox("нажатие на кнопку")
    End Sub

Public Class Form1
 
    Private Sub MyControl1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyControl1.Click
        Me.MyControl1.Mytext = Date.Now.ToLongTimeString
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.MyControl1.Text = String.Empty
    End Sub
End Class
 
Public Class MyControl
    Inherits Button
    Dim M_text As String
 
 
 
    Public Property Mytext() As String
        Get
            Return M_text
        End Get
        Set(ByVal value As String)
            M_text = value
            Me.BackgroundImage = Me.drawMytext()
        End Set
    End Property
 
 
    Private Function drawMytext() As Bitmap
        Dim bmp As Bitmap = New Bitmap(Me.Width, Me.Height, Drawing.Imaging.PixelFormat.Format32bppArgb)
        Dim g As Graphics = Graphics.FromImage(bmp)
        g.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAliasGridFit
        g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
        g.DrawString(M_text, Me.Font, New SolidBrush(Me.ForeColor), 10, 10)
        Return bmp
    End Function
 
    Private Sub MyControl_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        Me.BackgroundImage = Me.drawMytext()
    End Sub
 
End Class