Как нарисовать на стандартной кнопке текст в созданном мной классе

Public Class MButton : Inherits Button
   
 
    'Устанавливаем в основных свойствах
    'FlatStyle = Flat устанавливается ровная поверхность кнопки.
    'FlatAppearance\BorderSize=0 Скрывается бордюр кнопки.
    'В свойстве BackgroundImage загружаем фоновую часть кнопки.
    'В новых свойствах загружаем картинки фон,фокус,нажата =все.
    '+ Текст вдавленный.
#Region " Свойства "
    Dim кКартинкаФон As Bitmap 'Создаются переменные для новых свойств
    Dim кКартинкаФокус As Bitmap
    Dim кКартинкаНажата As Bitmap
    Property КартинкаФон() As Bitmap 'Создается свойство(КартинкаФон)
        Get
            Return кКартинкаФон
            Refresh()
        End Get
        Set(ByVal value As Bitmap)
            кКартинкаФон = value
            Refresh()
        End Set
    End Property
    Property КартинкаФокус() As Bitmap 'Создается свойство(КартинкаФокус)
        Get
            Return кКартинкаФокус
            Refresh()
        End Get
        Set(ByVal value As Bitmap)
            кКартинкаФокус = value
            Refresh()
        End Set
    End Property
    Property КартинкаНажата() As Bitmap 'Создается свойство(КартинкаНажата)
        Get
            Return кКартинкаНажата
            Refresh()
        End Get
        Set(ByVal value As Bitmap)
            кКартинкаНажата = value
            Refresh()
        End Set
    End Property
#End Region
#Region " Поведение мышки "
    Protected Overrides Sub OnMouseEnter(ByVal e As System.EventArgs)
        BackgroundImage = КартинкаФокус 'Курсор над кнопкой,Кнопка получила фокус
    End Sub
    Protected Overrides Sub OnMouseLeave(ByVal e As System.EventArgs)
        BackgroundImage = КартинкаФон 'Курсор покинул територию объекта,Кнопка утратила фокус
    End Sub
    Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
        BackgroundImage = КартинкаНажата 'Нажата кнопка мышки
    End Sub
    Protected Overrides Sub OnMouseUp(ByVal e As System.Windows.Forms.MouseEventArgs)
        BackgroundImage = КартинкаФокус 'OnMouseUp Отпустили кнопку мышки,Кнопка получила фокус
    End Sub
    Protected Overrides Sub OnMouseMove(ByVal e As System.Windows.Forms.MouseEventArgs)
        BackgroundImage = КартинкаФокус 'OnMouseMove Перемещение курсора мышки над объектом,Кнопка получила фокус
    End Sub
#End Region
#Region " Вдавленный текст "
 
    Dim ГТекст As String
    Dim ЦвТхт1 As Color
    Dim ЦвТхт2 As Color
 
    Property ГрафическийТекст() As String
        Get
            Return ГТекст
            Refresh()
        End Get
        Set(ByVal Value As String)
            ГТекст = Value
            Refresh()
        End Set
    End Property
    Property ЦветТекста1() As Color
        Get
            Return ЦвТхт1
            Refresh()
        End Get
        Set(ByVal Value As Color)
            ЦвТхт1 = Value
            Refresh()
        End Set
    End Property
    Property ЦветТекста2() As Color
        Get
            Return ЦвТхт2
            Refresh()
        End Get
        Set(ByVal Value As Color)
            ЦвТхт2 = Value
            Refresh()
        End Set
    End Property
#End Region
    '  Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
    '
    '  g.DrawString(ГТекст, Me.Font, Brushes.Blue, 5, 5)
    ' g.Dispose()
    ' End Sub
 
End Class

Protected Overrides Sub OnMouseEnter(ByVal e As System.EventArgs)
        BackgroundImage = КартинкаФокус: Invalide() : MyBase.OnMouseEnter(e)
 'Курсор над кнопкой,Кнопка получила фокус
    End Sub