--
Dim txt As WinForm.TextBox
txt = e.Form.CreateControl("TextBox9", ControlTypeEnum.TextBox)
\'txt.SetBounds = (100, 100, 50, 60) \'统一设置位置与大小(水平,垂直,宽度,高度)
txt.Left = 100 \'左定位
txt.Top = 100 \'上定位
txt.Value = "9999" \'显示内容
txt.BackColor = Color.Red \'背景颜色,可以标志状态
txt.MultiLine = True \'设置为多行文本框
txt.Height = 30 \'高度
txt.ReadOnly = True \'设置为只读
txt.
e.Form.AddControl(txt)
End If