J'amerai faire apparaitre un menu contextuel sous le pointeur avec un clic droit sur un formulaire.

Je ne vois pas comment l'afficher, j'ai essayé ça mais ça ne marche pas:
'en réalité j'ai plusieurs rectangles (qui ne sont pas des controls) et je souhaite l'afficher quand l'utilisateur clique sur un des petits rectangle.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
    Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
 
        If e.Button = Windows.Forms.MouseButtons.Right Then
 
            i = 0
            Do While Not i = numTriang
 
                r1 = New Rectangle(tabstructpresa(i).coordpresa.X, tabstructpresa(i).coordpresa.Y, 20, 20)
 
                If r1.Contains(New Point(e.X, e.Y)) Then
                    ContextMenuStrip.Show(e.X, e.Y)
                End If
                i = i + 1
            Loop
        End If
 
    End Sub
Merci!