Hi again

--What if you add one more label to a text box and make it visible in
MouseMove event of the control...Make sure you hide this in Userform mouse
move event

Private Sub Textbox1_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Me.Label1.Visible = True
Me.Label11.Visible = True
End Sub

--Instead of this approach why dont you try the other approach suggested in
your previous post..ie; to have a frame and have all the controls insider the
frame. Display a permanent label outside the frame (within the same userform)
and instead of hiding the labek; change the display text when you move your
mouse from one control to another....


If this post helps click Yes
---------------
Jacob Skaria


"TotallyConfused" wrote:

I have the following code for a userform. However, I want to know if I can
add another label with descriptions. Instead of one label being visible I
would like two labels to be visible when mouse moves over the textbox. Can
this be done? If so how do I add this to the code below. I would add
another label to all the textboxes. Thank you for any help you can provide.


Private Sub UserForm1_MouseMove(ByVal Button As Integer, ByValShift As
Integer, ByVal X As Single, ByVal Y As Single)
Me.Label1.Visible = True
Me.Label1.Visible = False
Me.Label2.Visible = True
Me.Label2.Visible = False
Me.Label3.Visible = True
Me.Label3.Visible = False
Me.Label4.Visible = True
Me.Label4.Visible = False
Me.Label5.Visible = True
Me.Label5.Visible = False
Me.Label6.Visible = True
Me.Label6.Visible = False
Me.Label7.Visible = True
Me.Label7.Visible = False

End Sub

Private Sub Textbox1_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Me.Label1.Visible = True

End Sub
Private Sub Textbox2_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Me.Label7.Visible = True

End Sub
Private Sub Textbox3_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Me.Label4.Visible = True

End Sub
Private Sub Textbox4_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Me.Label2.Visible = True

End Sub
Private Sub Textbox5_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Me.Label5.Visible = True

End Sub
Private Sub Textbox6_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Me.Label6.Visible = True

End Sub
Private Sub Textbox7_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Me.Label3.Visible = True

End Sub
Private Sub label1_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Me.Label1.Visible = False

End Sub
Private Sub label2_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Me.Label2.Visible = False

End Sub
Private Sub label3_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Me.Label3.Visible = False

End Sub
Private Sub label4_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Me.Label4.Visible = False

End Sub
Private Sub label5_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Me.Label5.Visible = False

End Sub
Private Sub label6_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Me.Label6.Visible = False

End Sub
Private Sub label7_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Me.Label7.Visible = False

End Sub