如何在按钮标签/文本中插入带圆圈的数字和文本，vb.net

Button1.Text = "按钮标签 ➀ 文本"

Private Sub Button1_Paint(sender As Object, e As PaintEventArgs) Handles Button1.Paint
    Dim circleSize As Integer = 20
    Dim circleFont As New Font("Arial", 12)
    Dim circleBrush As New SolidBrush(Color.Red)
    Dim circleBounds As New Rectangle(Button1.Width - circleSize - 5, (Button1.Height - circleSize) / 2, circleSize, circleSize)
    Dim textFont As New Font("Arial", 10)
    Dim textBrush As New SolidBrush(Color.Black)
    Dim textBounds As New Rectangle(5, 0, Button1.Width - circleSize - 10, Button1.Height)

    e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias

    ' 绘制圆圈
    e.Graphics.FillEllipse(circleBrush, circleBounds)

    ' 绘制数字
    e.Graphics.DrawString("1", circleFont, textBrush, circleBounds, New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center})

    ' 绘制文本
    e.Graphics.DrawString("按钮标签文本", textFont, textBrush, textBounds, New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center})
End Sub