I also had need for a simple Textbox field and though I make every effort to avoid code changes knowing they will haunt me with each new release ...converting the Description field seemed like the least obstrusive change. I haven't seen any issues using the following "minimal" changes in Form.ascx/Private Sub CreateInputForm()...


Case "DESCRIPTION"

'Begin TMW change DESCRIPTION from HTML Editor to Textbox
'*******************************
Dim objTextbox As New TextBox
objTextbox.ID = "__TEDescription"
objTextbox.Text = ""
objTextbox.TextMode = TextBoxMode.SingleLine
'objTextbox.CssClass = oRepositoryBusinessController.GetSkinAttribute(xmlDoc, "DESCRIPTION", "Default", "")
objTextbox.CssClass = oRepositoryBusinessController.GetSkinAttribute(xmlDoc, "DESCRIPTION", "CssClass", "normal")
objTextbox.Width = System.Web.UI.WebControls.Unit.Pixel(CInt(oRepositoryBusinessController.GetSkinAttribute(xmlDoc, "DESCRIPTION", "Width", "150")))
objTextbox.Text = objRepository.Description.ToString
PlaceHolder.Controls.Add(objTextbox)
' Required Field Validator
If oRepositoryBusinessController.GetSkinAttribute(xmlDoc, "DESCRIPTION", "Required", "true") = "true" Then
Dim oValidator As New RequiredFieldValidator
oValidator.ControlToValidate = "__Description"
oValidator.CssClass = "normalred"
oValidator.ErrorMessage = Localization.GetString("ValidateDescription", oRepositoryBusinessController.LocalResourceFile)
oValidator.ID = "__ValDescription"
oValidator.Display = ValidatorDisplay.Static
PlaceHolder.Controls.Add(oValidator)
End If
'**************************************

'Dim oControl As New System.Web.UI.Control
'oControl = CType(LoadControl("~/controls/TextEditor.ascx"), DotNetNuke.UI.UserControls.TextEditor)
'oControl.ID = "__TEDescription"
'PlaceHolder.Controls.Add(oControl)
'Dim TEDescriptionField As DotNetNuke.UI.UserControls.TextEditor = PlaceHolder.FindControl("__TEDescription")
'If Not TEDescriptionField Is Nothing Then
' If objRepository.ItemId = -1 Then
' TEDescriptionField.Text = oRepositoryBusinessController.GetSkinAttribute(xmlDoc, "DESCRIPTION", "Default", "")
' Else
' TEDescriptionField.Text = objRepository.Description
' End If
' TEDescriptionField.Width = System.Web.UI.WebControls.Unit.Pixel(CInt(oRepositoryBusinessController.GetSkinAttribute(xmlDoc, "DESCRIPTION", "Width", "560px")))
' TEDescriptionField.Height = System.Web.UI.WebControls.Unit.Pixel(CInt(oRepositoryBusinessController.GetSkinAttribute(xmlDoc, "DESCRIPTION", "Height", "280px")))
'End If
'' Required Field Validator
'If oRepositoryBusinessController.GetSkinAttribute(xmlDoc, "DESCRIPTION", "Required", "true") = "true" Then
' Dim oValidator As New RequiredFieldValidator
' oValidator.ControlToValidate = "__TEDescription"
' oValidator.CssClass = "normalred"
' oValidator.ErrorMessage = Localization.GetString("ValidateDescription", oRepositoryBusinessController.LocalResourceFile)
' oValidator.ID = "__ValDescription"
' oValidator.Display = ValidatorDisplay.Static
' PlaceHolder.Controls.Add(oValidator)
'End If

...and then adjust Form.xml accordingly...