リスト1：コンテキストメニューを表示する Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) 　　If Button = 2 Then ' 右ボタンがクリックされたとき 　　　　PopupMenu popSub 　　End If End Sub 本文へ戻る