ツールバーとメニューバーの共存ってできないの？ (ID:106731)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 すみません、送信ボタンを押してしまいました。 もう一度、書かせてください。 ①Private Sub メニューバー１_Click() Msgbox "ABC" End Sub '--------------------------------------------------- ②Private Sub Toolbar1_ButtonClick(ByVal Button As _ MSComctlLib.Button) Select Case Button.Key Case "コマンドボタン1" MsgBox "ABC" End Select End Sub '--------------------------------------------------- Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case "コマンドボタン1" メニューバー１_Click・・・・③ End Select End Sub 苦しんでいる事は、ツールバーのあるボタンをＣＬＩＣＫした時に メニューバーの①と同じことをしたいのですが、②のように書きたくないのです。と言うのは、①のようなメニューバーの文が複数ありまして ②に、また同じ事を書くとなるとすごい膨大な量になってしまうのです。 例えば③のような構文が理想なのですが、誰か教えて下さい。 初心も初心なので、どうぞよろしく御願い致します。