I know that Toolbar.Items(3).Disabled=True will disable the fourth button.

Now, if the fourth button has CommandName of "Delete" how do I disable it by Name rather than by Index?

Thanks in Advance!

Lee

I guess I can use the following unless you have better suggestion:

toolbar1.items(KeyIndex("Delete")).disabled=true


Function KeyIndex(ByVal KeyName As String) As Short
Dim iCount As Short
For iCount = 0 To ToolBar1.Items.Count - 1
If ToolBar1.Items(iCount).Text = KeyName Then Exit For
Next
Return iCount
End Function