求教RichTextBox的自动换行问题

Question

怎么RichTextBox的自动换行功能这么“强”啊？！无论我在ScrollBars属性中设置任何值，并且与MultiLine和DisableNoScroll属性的值组合过无数种可能，就是不能使RichTextBox取消自动换行功能。天哪，难道微软就是一定要我们使用自动换行功能的吗？？！如果有建议我调整MultiLine属性、DisableNoScroll属性和ScrollBars属性的朋友就可以不用发表了，因为我真的试了无数次这几个参数的调整组合可能，就是没有解决问题。感谢对我的这个帖子关心的朋友！
（如果回答得好，还会追加分数相赠）

Answer 1

VB的控件都封装得太烂建议去学SDK编程，直接用Win32 API创建控件
这样使用无任何限制

Answer 2

对于VB的RichTextBox控件
解决方法只有一个：将RightMargin属性设为一个足够大的数字

Answer 3

以下代码： 
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ 
(ByVal hwnd As Long, ByVal wMsg As Long, _ 
ByVal wParam As Long, lParam As Any) As Long Const WM_USER = &H400 
Const EM_SETTARGETDEVICE = (WM_USER + 72) Private Sub Form_Load() 
    Call SendMessage(RichTextBox1.hwnd, EM_SETTARGETDEVICE, 0, 1) 
End Sub
这样可以使RichTextBox1不自动换行。