Créer un bouton multifonction

Qu'es que j'entends par bouton multi fonction ? , c'est easy !! , un bouton qui te permet de créer deux événements , pourquoi ? , pour optimiser le code et ne pas créer deux boutons ,ce qui veut dire deux procédures , et donc là, vous allez automatique utiliser la propriété de visibilité et faire une superposition d'un bouton sur l'autre , ce qui me parait très basic et amateur ... même si je l'avoue que je l'ai déjà fais auparavant .... lol :D ;).

Donc , pour éviter cela , il vaut mieux d'utiliser une instruction conditionnelle et jouer sur la propriété "Caption"[c'est le nom pas le NAME du bouton c'est à dire ce qui va s'afficher sur ce bouton ] de votre contrôle .Je vais insérer le code et pour plus d'information , suivez le tutoriel ;)

Private Sub cmd_Click()
if cmd.caption="afficher" then
frm.height="2000"
cmd.caption="cacher"
else
if cmd.caption="cacher" then
frm.height="1000"
cmd.caption="afficher"
end if
end if
end Sub

M.Islem