In my Userform, I have the following code making lables visible when
mouseover textbox. However, you have to go back to the label to hide it. So
if your mouse even comes close to one of the other textboxes it will also be
visible. Two labels can be visible at the same time. This doesnt work well
with a two column frame.

Can this be changed instead to make label visible when you click on the
textbox and when you click again the label will be invisible? Can this be
done? How would the code change?? Thank you.



Private Sub UserForm_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Label280.Visible = True
Me.Label280.Visible = False
Me.Label282.Visible = True
Me.Label282.Visible = False
Me.Label283.Visible = True
Me.Label283.Visible = False
Me.Label284.Visible = True
Me.Label284.Visible = False
Me.Label285.Visible = True
Me.Label285.Visible = False


Private Sub CheckBox470_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Label280.Visible = True

End Sub

Private Sub CheckBox465_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Label282.Visible = True

End Sub
Private Sub CheckBox467_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Label283.Visible = True

End Sub
Private Sub CheckBox466_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Label284.Visible = True

End Sub
Private Sub CheckBox468_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Label285.Visible = True

End Sub

Private Sub Label280_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Label280.Visible = False

End Sub
Private Sub Label282_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Label282.Visible = False

End Sub
Private Sub Label283_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Label283.Visible = False

End Sub
Private Sub Label284_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Label284.Visible = False

End Sub
Private Sub Label285_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Label285.Visible = False

End Sub