Question sur CommandButton

Bonjour le Forum,

La question est il possible qu'CommandButton placé dans un userform pisse avoir plusieurs commande distinct.

par exemple en cliquant 1 fois un accès à une page en ciquant 2 fois agrandir l'userform et ainsi de suite ??

Actuelement j'arrive à luis faire faire 2 actions le bouton change de couleur suivant les actions:

Exemple :
Private Sub CommandButton19_Click()
Dim Motif As String
Motif = CommandButton19.Caption

'----------- Couleur du bouton et action --------------
If Motif = "Acceuil" Then
UserForm4.Height = 42 'Agrandir
CommandButton19.Caption = "Acceuil "
With CommandButton19
.BackColor = RGB(100, 255, 255) 'bleu
With .Font
.Size = 10
.Bold = True
End With

CommandButton18.Visible = False
CommandButton2.Visible = False
CommandButton17.Visible = False
CommandButton9.Visible = True
CommandButton16.Visible = True
End With
Else
UserForm4.Height = 42 'Réduire
CommandButton19.Caption = "Acceuil"
With CommandButton19
.BackColor = RGB(255, 128, 128) 'vert
With .Font
.Size = 10
.Bold = True
End With

CommandButton18.Visible = True
CommandButton2.Visible = True
CommandButton17.Visible = True
CommandButton9.Visible = False
CommandButton16.Visible = False
End With
End If
End Sub

Vous remerciant par avance