Effacer sur un clic gauche un textbox

Bonsoir a toutes et tous, Forum bonsoir

Je n'ai pas trouver comment faire pour effacer sur un CLIC GAUCHE un TextBox qui se trouve dans mon UserForm.

Merci d'avance pour votre aide et pour votre temps

Bonne soirée a tous

Cordialement Ray

Bonjour

Regardes du coté de l'événement MouseDown

Extrait de l'aide

Interviennent lorsque l'utilisateur clique sur un bouton de la souris. MouseDown se produit lorsque l'utilisateur appuie sur le bouton de la souris ; MouseUp se produit lorsque l'utilisateur relâche le bouton de la souris.

Regardes la suite de l'aide

exemple

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If Button = 1 Then Me.TextBox1 = ""
End Sub

Bonsoir Banzai64

Merci bien pour ta réponse, j'ai suivi le conseil et essayer ton code

J'ai fait comme ci-dessous avec MouseUp

Voila résultat des courses ça fonctionne bien.

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.Value = ""
End Sub

Merci beaucoup pour ton savoir partagé, vu l'heure je te souhaite un bon app

Avec tout mes remerciements Bansai64 bonne soirée

Cordialement Raymond