|
Private Sub Toolbar1_ButtonClick(ByVal Button As Button)
Select Case Button.Index Case 1'click on the first button Case 2'click on the second button Case 3'click on the third button 'and so on End Select End Sub '_________________________________________________________ 'you can change most properties a runtime Toolbar1.Buttons(1).Visible = False 'makes the first button disappear Toolbar1.Buttons(1).ToolTipText = "an other one" 'change the tooltip text of the first button Toolbar1.Buttons(2).Enabled = False 'disable the second button Toolbar1.Buttons(3).Caption = "KATHER" 'change the caption of the third button 'BTW you cannot set the property Toolbar1.ShowTips at runtime! |