Dim ContextMenu As New ContextMenuStrip '右键菜单
Dim ContextMenuItem As New ToolStripMenuItem
ContextMenuItem.Name = "open"
ContextMenuItem.Text = "打开"
ContextMenu.Items.Add(ContextMenuItem)
AddHandler ContextMenuItem.Click, AddressOf Me.ContexMenuItems_Click
Private Sub ContexMenuItems_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim MenuItem As ToolStripMenuItem = CType(sender, ToolStripMenuItem)
If MenuItem.Name = "open" Then
form2.show()
End If
End Sub