Afficher sur USF Monthview

Bonjour a toutes et tous, Forum bonjour

EXCEL 2007 - VBA

Voila j'ai un Userform avec un Textbox4 dans une Frame10

j'ai également inserer le calendrier Monthview

je souhaiterai svp avec le Textbox4 en cliquant dessus afficher ou pas afficher le Monthview sur l'USF

malgré mes divers essais avec les codes ci-dessous, je ni parvient pas.

A savoir: lorsque j'ouvre mon fichier excel, l'USF s'affiche ainsi que le Monthview

alors que je souhaiterai seulement que lorsque je clic sur le Texbox4 afficher le calendrier
et après sélection d'une Date et transfert dans le Textbox4
un autre clic dans le Textbox4 pour effacer le calendrier

'Private Sub TextBox4_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Private Sub TextBox4_Click()
MonthView1.Visible = False
'MonthView1.Visible = True
End Sub

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
TextBox4.Value = Format(Me.MonthView1.Value, "dd/mmm/yyyy")
End Sub

Merci beaucoup par avance pour votre temps et pour votre aide

Bon Dimanche a tous

Cordialement