How to change ForeColor of a themed-stylized button on VB6

The regular Command1 button does not have the ForeColor property to change the color of the button in VB6, but it often happens that you want to change the color of the label in this button... Therefore, we use subclassing technology. I took the class module for window subclassing from The trick as an example of using it, but I would like to draw your attention to the fact that it does not work in Twin Basic. Therefore, this test case is only for VB6.