リスト2：補助メニューを表示するプロシージャ

' 「補助機能１」を表示
Private Sub mnuSub1_Click()
　　MsgBox "補助機能１です。", _
　　　　vbOKOnly + vbInformation, "補助１"
End Sub

' 「補助機能２」を表示
Private Sub mnuSub2_Click()
　　MsgBox "補助機能２です。", _
　　　　vbOKOnly + vbInformation, "補助２"
End Sub

' 「補助機能３」を表示
Private Sub mnuSub3_Click()
　　MsgBox "補助機能３です。", _
　　　　vbOKOnly + vbInformation, "補助３"
End Sub



本文へ戻る