Hej!

Sitter och pillar lite med toolbaren och försöker att få en knapp att funka om man använder en bild på en knapp som kommer från imagelist. Eftersom jag inte kan ha någon caption på knappen så vet jag inte hur jag ska få den att funka. Så här har jag nu utan någon ikon och det funkar men jag vill inte ha någon caption t.ex Nytt utan en bild istället..


Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button

Case "Nytt"
Text1.Text = "Hej"
End Case

End Sub

Du får använda .Key istället för .Caption...

<code>
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button.Key
Case "Nytt"
Text1.Text = "Hej"
End Case

End Sub
</code>

/Micke

Tack!