add ToolStripMenuItem in ContextMenuStrip

 Dim n As New NotifyIcon
  Dim icon1 As New Icon("1.ico")
        n.Icon = icon1

        n.Visible = True

Private Sub DisplayContextMenus()

        Dim _ContextMenu As New ContextMenuStrip, cMenuMod As New ToolStripMenuItem, cMenuSubMod As New ToolStripMenuItem, MenuForm As New ToolStripMenuItem
        Dim dtModule As New DataTable
        Dim dtSubModule As New DataTable
        Dim dtForm As New DataTable
        'Addition of User Privilege Menus
        dtModule = _CDALMenu.Dotask("GET_MODULE_BY_USER_ID", 0, 0, modgrocery.iUserid, "", 0)
        For i As Integer = 0 To dtModule.Rows.Count - 1
            cMenuMod = New ToolStripMenuItem
            With cMenuMod
                .Text = "&" & dtModule.Rows(i)("mod_name").ToString
                .Name = dtModule.Rows(i)("mod_name").ToString
            End With
            'Addition of User Privilege SubMenus
            dtSubModule = _CDALMenu.Dotask("GET_SUBMODULE_BY_MODID_USER_ID", dtModule.Rows(i)("mod_id").ToString, 0, modgrocery.iUserid, "", 0)
            For j As Integer = 0 To dtSubModule.Rows.Count - 1
                cMenuSubMod = New ToolStripMenuItem
                With cMenuSubMod
                    .Text = "&" & dtSubModule(j)("smd_name").ToString
                    .Name = dtSubModule(j)("smd_name").ToString
                End With
                dtForm = _CDALMenu.Dotask("GET_FORM_BY_SUBMODID_USER_ID", 0, dtSubModule.Rows(j)("smd_id").ToString, modgrocery.iUserid, "", 0)
                For k As Integer = 0 To dtForm.Rows.Count - 1
                    MenuForm = New ToolStripMenuItem
                    With MenuForm
                        .Text = "&" & dtForm(k)("frm_name").ToString
                        .Name = dtForm(k)("frm_name").ToString
                    End With

                    ' cMenuSubMod.DropDownItems.Add(MenuForm.ToString, Nothing, New System.EventHandler(AddressOf SelectedChildMenu_OnClick))
                    ' cMenuSubMod.Items.Add(MenuForm)
                    cMenuSubMod.DropDownItems.Add(MenuForm.ToString, Nothing, New System.EventHandler(AddressOf SelectedChildMenu_OnClick))
                    cMenuMod.DropDownItems.Add(cMenuSubMod)
                    'cMenuSubMod.MenuItems.Add(MenuForm)
                    'cMenuMod.i.Add(cMenuSubMod)
                    '_ContextMenu.MenuItems.Add(
                Next
            Next
            _ContextMenu.Items.Add(cMenuSubMod)
            ' _ContextMe'nu.Items.Add(
        Next
        n.ContextMenuStrip = _ContextMenu
    End Sub