or

<telerik:RadGrid ID="myRadGrid" runat="server" Width="98%" BorderWidth="1px" CellPadding="6" GridLines="None" BorderColor="#404040" Skin="Web20"><ExportSettings ExportOnlyData="true" IgnorePaging="true" OpenInNewWindow="true" FileName="Inventory" Excel-Format="Biff" ></ExportSettings>.rfdTextbox.RadForm input[type='text'].rfdDecorated, .rfdTextbox.RadForm input[type='search'].rfdDecorated, .rfdTextbox.RadForm input[type='url'].rfdDecorated, .rfdTextbox.RadForm input[type='tel'].rfdDecorated, .rfdTextbox.RadForm input[type='email'].rfdDecorated { width: 240px!important; }<telerik:RadComboBox runat="server" ID="ddlRoles" Visible="false" EnableViewState="true" AutoPostBack="True" CausesValidation="false" ZIndex="999999"> <Items> </Items></telerik:RadComboBox>'ItemTemplate Class. Just pulls the User ControlClass QC_HACCP_Hold Implements ITemplate Public Sub InstantiateIn(ByVal container As Control) Implements ITemplate.InstantiateIn Dim lit1 As New QC_HACCP_Hold_Lot container.Controls.Add(lit1) End Sub End Class'User Control write up - QC_HACCP_Hold_Lot<%@ Control Language="vb" AutoEventWireup="false" CodeBehind="QC_HACCP_Hold_Lot.ascx.vb" Inherits="sadlersnet.QC_HACCP_Hold_Lot" %><asp:panel id="pnlHold" runat="server"> <p> Enter Lot Number to Place on Hold<br /> <asp:TextBox ID="txtLotNumber" runat="server"></asp:TextBox><asp:Button ID="cmdHoldLot" runat="server" Text="Set to Hold" /> </p></asp:panel>'Code to Create Parent and Sub with Template Applied Dim _QCHACCP_Place_Lot_On_Hold As RadMenuItem = AddMenuItem("Place Lot on Hold", Nothing, False) With _QCHACCP_Place_Lot_On_Hold Dim _QC_HoldTemplate As New Custom_Rad_Templates.QC_HACCP_Hold mnuMain.ItemTemplate = _QC_HoldTemplate .Items.Add(New RadMenuItem) End With'Helper function for creating menuitemsPrivate Function AddMenuItem(ByVal Caption As String, URL As String, ByVal AutoPostBack As Boolean, Optional ByVal Target As String = Nothing) As RadMenuItem Dim _MenuItem As RadMenuItem = New RadMenuItem _MenuItem.PostBack = AutoPostBack _MenuItem.NavigateUrl = URL _MenuItem.Text = Caption If Not IsNothing(Target) Then _MenuItem.Target = Target Return _MenuItem End Function