为什么richtextbox的水平滚动条不能用?

Question

RightMargin 属性
      返回或设置 RichTextBox 控件中的文本右边距。语法object.RightMargin [ = value]RightMargin 属性的语法包含下面部分：部分 描述 
object 对象表达式，其值是一个 RichTextBox 控件。 
value 数值表达式，按下面所描述的，以缇为单位来指定从文本右边缘到控件右边缘的缩进。 
说明RightMargin 属性为文本的自动换行，居中，和缩进设置右极限。段落居中是基于 RichTextBox 控件的文本部分（不包括边框）的最左边和 RightMargin 属性。另外，设置 SelRightIndent 属性时，要基于 RightMargin 属性的当前设置。RightMargin 属性的缺省值是 0，这样会使控件在 RichTextBox 控件的最右边设置文本自动换行，使所有文本都可显示出来。注意 计算 RightMargin 属性值时，如果 RichTextBox 控件的 BorderStyle 设置为 rtfFixedSingle，则要把此控件的边框宽度计算在内。

Answer 1

以下代码： 
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使RichTextBox控件中的文本不换行