Hallo, Ik ben een VBA-beginner en had graag enige hulp of raad bij onderstaand probleem:

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Label1.Visible = True Then
Label1.Visible = False
Else
Label1.Visible = True
End If
End Sub

De bedoeling is dat wanneer ik in een userform een textbox1 klik (de cursor staat dus in textbox1)  label1 zichtbaar gemaakt wordt. En wanneer ik een andere textbox aanklik label1 weer verdwijnt en de bij de nieuwe textbox behorende label verschijnt.

Ik heb het eerst geprobeerd met behulp van MouseMove maar dat gaf zo veel flikkeringen dat het niet aangenaam meer was.

Via MouseDown wordt het label stabiel zichtbaar gemaakt en via een tweede keer klikken in dezelfde tekstbox wordt het label weer onzichtbaar gemaakt.

Probleem:

Is het mogelijk om bij het aanklikken van een andere textbox de zichtbare label te laten verdwijnen en de nieuwe label te laten verschijnen?

Bvb ik klik op textbox1 en de daarbijhorende label1 verschijnt. Dan klik ik op textbox4 waarop label1 verdwijnt en label4 verschijnt.

Dit lukt via de bovenstaande code maar ik kan niet terugkeren bvb wanneer ik van textbox4 naar textbox1 klik, blijft label 4 staan. Dit wijst er dus op dat de labels niet verdwijnen maar gewoon over mekaar staan. Of ik moet voor naar textbox4 te gaan eerst de label wissen door nogmaals in textbox1 te klikken.

Alvast bedankt voor alle hulp.

Groetjes, Merel

Prachtig Luc, net wat ik nodig had en het werkt perfect nu !!!!!

De oplossing was zo eenvoudig (voor wie het weet natuurlijk) terwijl ik iets ongelooflijk ingewikkeld aan het zoeken was.

Bedankt.

Merel