我不明白RichText控件自己有水平和垂直滚动条，为什么你还要另外添加？
建议：删除添加的两个滚动条，将RichText.Height设置为适当的值就可以了。
另外，程序中有一些重复代码，建议删除，例如：

RichText.Height = Form1.ScaleHeight
RichText.Width = Form1.ScaleWidth

这两句在Form_Resize和Form_Load过程中都有，其实只要在Form_Resize中有就行了。

RichText.Height = Form1.ScaleHeight 这一句是不行的，必须：
RichText.Height = Form1.ScaleHeight-615

但这样改仍然有毛病，当窗体最小化时会出错，所以要加一个判断：

Private Sub Form_Resize()
If Me.ScaleHeight - 615 > 0 Then
  RichText.Height = Me.ScaleHeight - 615
  StatusBar1.top = RichText.top + RichText.Height
End If
RichText.Width = Me.ScaleWidth
End Sub

谢谢LZ的
我再问个问题
就是菜单中的查找,查找对话框键入中文字和我打的不一样
这是为什么啊~
谢谢

呵呵，这是VB6的一个BUG，如果你安装了sp6（具体是sp几，我忘了）,就不会有这个现象了。但你将程序编译后再运行EXE文件，就一切正常了。

哦
谢谢~~~