Visual Basic - color texto en botones

Hola : necesito urgentemente saber como puedo cambiar en tiempo de ejecucion el color del texto de los commandButton

Gracias.
Juan

Se puede, pero hay que usar la API. Inicia un nuevo proyecto e inserta un módulo. Copia y pega este codigo en el apartado General del Modulo:

Continua.....

\'Owner draw constants
Private Const ODT_BUTTON = 4
Private Const ODS_SELECTED = &H1
\'Window messages we\'re using
Private Const WM_DESTROY = &H2
Private Const WM_DRAWITEM = &H2B

Private Type DRAWITEMSTRUCT
CtlType As Long
CtlID As Long
itemID As Long
itemAction As Long
itemState As Long
hwndItem As Long
hDC As Long
rcItem As RECT
itemData As Long
End Type

Private Declare Function GetWindowText Lib \"user32\" Alias _
\"GetWindowTextA\" (ByVal hWnd As Long, ByVal lpString As String, _
ByVal cch As Long) As Long
\'Various GDI painting-related functions
Private Declare Function DrawText Lib \"user32\" Alias \"DrawTextA\" _
(ByVal hDC As Long, ByVal lpStr As String, ByVal nCount As Long, _
lpRect As RECT, ByVal wFormat As Long) As Long
Private Declare Function SetTextColor Lib \"gdi32\" (ByVal hDC As Long, _
ByVal crColor As Long) As Long
Private Declare Function SetBkMode Lib \"gdi32\" (ByVal hDC As Long, _
ByVal nBkMode As Long) As Long
Private Const TRANSPARENT = 1

Private Const DT_CENTER = &H1
Public Enum TextVAligns
DT_VCENTER = &H4
DT_BOTTOM = &H8
End Enum
Private Const DT_SINGLELINE = &H20

Private Sub DrawButton(ByVal hWnd As Long, ByVal hDC As Long, _
rct As RECT, ByVal nState As Long)

Dim s As String
Dim va As TextVAligns

va = GetProp(hWnd, \"VBTVAlign\")

\'Prepare DC for drawing