先给RichTextBox设置属性ScrollBars=3-rtfBoth，代码：

Private Sub Form_Load()
    With RichTextBox1
        ' 关闭自动换行，设置大点（例如30000缇，根据你的控件大小调整）
        .RightMargin = .Width * 2
        .Text = "这是一串用于触发横向滚动条的超长连续文本，无手动换行符，长度将超过RichTextBox1的当前水平宽度，从而让横向滚动条正常显示出来。"
    End With
End Sub

当然也可以设置成一个数值，比如 .RightMargin = 30000 。