I want to put text inside a label's caption when the user moves their mouse over a button in a toolbar. How can i do this? I have tried this code but get the following error message: "Invalid Qualifier." It highlights the Button in Button.Index on this error. What can I do?

Private Sub tlbMain_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Button.Index

Case 1
lblInfo.Caption = "Something"
Case 2
lblInfo.Caption = "Something"
Case 3
lblInfo.Caption = "Update"
Case 4
lblInfo.Caption = "Help"
Case 5
lblInfo.Caption = "Exit"

End Select
End Sub