كل ما عليكم هو عدم ربط القائمة بالزر واستخدم بدلا من ذلك هذا الحدث للزر
كود :
Private Sub Button1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp
If e.Button = Windows.Forms.MouseButtons.Right Then
Me.ContextMenuStrip1.Show(sender, New Point(10, 10))
End If
End Sub