如何设置RichText的滚动条？

Question

（text控件也存在这种情况）
我设置了滚动条垂直滚动。一切正常，但当滚动东条显示了之后，文本框内容区域变窄了
一行少了一个字，那样显示的效果与实际打印的效果就不一样了，
我如何让有滚动条，无滚动条时，显示的宽度都一样？？？
或者有滚动条时，适当加宽文档框宽度，但我怎么知道，是否有滚动条。
好像不设置滚动条，鼠标滚轮不好使？？？？？？？？

Answer 1

BACKUP DATABASE  你的数据库名 TO DISK='文件名'
然后用cn.Execute方法执行上面的这条语句恢复就用Restore  DATABASE  你的数据库名 TO DISK='文件名'

Answer 2

不好意思，上面这个帖子发错地方了。Sorry。
关于楼主的问题，俺只能提一些思路，没真正做过。
fWhdStyleBits = GetWindowLong(.hwnd, GWL_STYLE)'取得窗口样式
if fWhdStyleBits And WS_VSCROLL then          '表示有垂直滚动条    Const GWL_STYLE As Long = (-16)
    Const WS_VSCROLL As Long = &H200000
以上用于文本框，至于能不能用于RichTextBox，那就靠楼主试试了

Answer 3

'加大它的宽度呀
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Const SM_CXHTHUMB = 10
Private Sub Command1_Click()
    Dim lscrollwidth As Long
    lscrollwidth = GetSystemMetrics(SM_CXHTHUMB)
    RichTextBox1.Width = RichTextBox1.Width - lscrollwidth * Screen.TwipsPerPixelX
End Sub