我刚开始在 csdn 的 vb 论坛里看到这个帖子的时候，想了很久都没有找到解决方法。后来看 zy910 写到“由于 Edit 控件的设定（只能在创建窗口时设置风格，创建后不能修改）
所以 TextBox 的 MultiLine 屬性实现原理是：先清除原有的 Edit ，再创建一个新的 Edit
这在设计时是可行的。但在运行时，会导致文本框相关数据的丢失，甚至会因不安全的代码导致非法操作，所以 M$ 将 TextBox 的 MultiLine 屬性设置成运行时只读”，那么通过直接使用 textbox 控件是无法满足要求的了。
其实我们可以找到一个替代的方法，微软给我们提供了一组无窗口控件库。所谓“无窗口控件”是见名知义，是没有无窗口，因而没有 hwnd 属性。这个库在主要语言的参考文档中没有提到，它必须手工从 common\Tools\vb\Winless 目录下安装。安装的方法是将这个目录复制到硬盘上，用 regsvr32 或 vb 中对它进行注册，然后双击 Mswless.reg ，它创建使 activex 控件对 vb 环境可用的注册关键字。注册完毕后，从按 Ctrl+T 从可用的 Active 控件列表中选取 Microsoft Windowless Control 6 来把函数库加载到 IDE 中。
使用 windowless 函数库的好处是在运行时没有内部控件的限制，事实上所有的属性都可以在运行时改变。这个库中包括 TextBox 的无窗口版 —MSWLess.WLText 。也就说我们可以通过动态加载这个控件，来实现动态添加 multiline 属性的 text 控件。
Dim WithEvents TxtEditor As MSWLess.WLText
Private Sub Command1_Click()
Set TxtEditor = Controls.Add("MSLess.WLText", "txtEdit")
TxtEditor.MultiLine = True
TxtEditor.ScrollBars = wlBoth
TxtEditor.Move 0, 0, ScaleWidth, ScaleHeight
TxtEditor.Visible = True
End Sub
注意：“工程属性”中“删除有关未使用的 active 控件的信息”的复选框不要选。