Cambiar color de fuentes commandbutton

H o l a:

Private Sub CommandButton1_Click()
CommandButton1.ForeColor = vbRed
End Sub

Adriel: como hago para hacer lo mismo con varios botones en el mismo formulario???? que al clickear cualquiera de ellos cambien de color'??? 

H o l a:

Private Sub CommandButton1_Click()
cmd = CommandButton1.BackColor
If cmd = vbBlue Then
    CommandButton1.Caption = "hola1"
    CommandButton1.BackColor = &HFFFF&
    CommandButton1.ForeColor = vbRed
ElseIf cmd = &HFFFF& Then
'
    CommandButton1.Caption = "hola2"
    CommandButton1.BackColor = vbRed
    CommandButton1.ForeColor = vbWhite
ElseIf cmd = vbRed Then
'
    CommandButton1.Caption = "hola3"
    CommandButton1.BackColor = vbGreen
    CommandButton1.ForeColor = vbBlack
ElseIf cmd = vbGreen Then
'
    CommandButton1.Caption = "hola4"
    CommandButton1.BackColor = &H80FF&
    CommandButton1.ForeColor = vbYellow
ElseIf cmd = &H80FF& Then
    CommandButton1.BackColor = vbBlue
    CommandButton1.ForeColor = vbMagenta
End If
End Sub
Private Sub UserForm_Initialize()
CommandButton1.BackColor = vbBlue
CommandButton1.Caption = "Hola"
End Sub

Adriel disculpa que te moleste de nuevo... en la etiqueta tengo las palabras "mesa 1 4 pax", ¿cómo hago para que la palabra mesa 1 sea más grande que 4 pax en la etiqueta?

 H o l a 

Private Sub CommandButton1_Click()
With CommandButton1
.Font.Bold = True
.Font.Size = 14 ' CAMBIA EL TAMAÑO DESEADO
End With
End Sub

El tamaño en general y no una parte del texto

¡Gracias! 

Adriel sabes como hacer lo mismo en un formulario de access???