Label Box

  • Thread starter Thread starter Guest
  • Start date Start date
Assuming that your text is originally black, this code will change the text
color to white and "raise" the label when the mouse hovers over it:

Private Sub lblYourLabel_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
lblYourLabel.ForeColor = vbWhite
lblYourLabel.SpecialEffect = 1
End Sub

This code returns the label appearance back to "normal" when the mouse moves
off of the label:

Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single,

Y As Single)
lblYourLabel.ForeColor = vbBlack
lblYourLabel.SpecialEffect = 0
End Sub
 
First you need to buy some sort of jetpack or maybe a gyro-copter will do,
depends on the size for your room.
 
Back
Top