Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim contextMenu1 As New System.Windows.Forms.ContextMenu
    contextMenu1.MenuItems.Add(New MenuItem("&Copy"))
    contextMenu1.MenuItems.Add(New MenuItem("&Find and Replace"))
    contextMenu1.MenuItems.Add(New MenuItem("C&hange Picture"))
    contextMenu1.Show(Button1, New System.Drawing.Point( 10 ,  10 ))
  End Sub