Public Class MyButton
    Inherits System.Windows.Forms.Button
    Protected Overrides Sub OnPaint(ByVal pevent As _
      System.Windows.Forms.PaintEventArgs)
        If MyBase.Enabled Then
            MyBase.OnPaint(pevent)
            MyBase.ForeColor = Color.Blue
        Else
            MyBase.OnPaint(pevent)
            Dim sf As SizeF = pevent.Graphics.MeasureString(Me.Text, Me.Font, _
              Me.Width)
            Dim ThePoint As New Point
            ThePoint.X = (Me.Width / 2) - (sf.Width / 2)
            ThePoint.Y = (Me.Height / 2) - (sf.Height / 2) + 1
            pevent.Graphics.DrawString(Me.Text, Me.Font, New SolidBrush( _
              Me.ForeColor), ThePoint)
        End If
    End Sub
End Class

    Inherits System.Windows.Forms.Control

    Inherits System.Windows.Forms.Button