VB2010(19)_菜单工具栏上下文菜单

Public Class Menus
    '窗体载入
    Private Sub Menus_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tspMain.Visible = True
    End Sub

    '菜单新建
    Private Sub 新建NToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles 新建NToolStripMenuItem.Click
        TextBox1.Text = String.Empty
        TextBox2.Text = String.Empty
        TextBox1.Focus()
    End Sub

    '菜单退出
    Private Sub 退出XToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出XToolStripMenuItem.Click
        Me.Close()