'引用:Microsoft Rich Textbox Control 6.0 (SP6)

'********设置横坚滚动条方法********
'步骤一:设置右边边距
'RichTextBox1.RightMargin = RichTextBox1.Width + 10000
'------------上句代码可加到代码里------------
'------------下面几句必须手动设置------------
'步骤二:将滚动条设为有效
'RichTextBox1.DisableNoScroll = True
'步骤三:设置文本框为多行显示
'RichTextBox1.MultiLine = True
'步骤四:设置滚动条样式
'RichTextBox1.ScrollBars = 3
'**********************************

Private Sub Command1_Click()
	RichTextBox1.Text = "欢迎使用VB程序！"
	RichTextBox1.SelStart = 0              '选中启始位置
	RichTextBox1.SelLength = 5             '选中字符数量
	RichTextBox1.SelFontSize = 20          '设选中部份字体大小
	RichTextBox1.SelFontName = "仿宋"      '设选中部份字体样式
	RichTextBox1.SelItalic = True          '设选中部份为斜体
	RichTextBox1.SelColor = RGB(0, 128, 0) '设选中部份显示颜色
	RichTextBox1.SelBold = True            '加粗选中部份
	RichTextBox1.SelStrikeThru = True      '加删除线到选中部份
	RichTextBox1.SelUnderline = True       '加下划线到选中部份
End Sub


'============判断">"在RichTextBox1.Text中哪些位置出现过============
Dim a As Integer
Private Sub Command1_Click()
	1:
	a = InStr(a, RichTextBox1.Text, ">")
	List1.AddItem a              '结果
	a = a + 1
	If a < InStrRev(RichTextBox1.Text, ">") + 1 Then GoTo 1:
End Sub

Private Sub Form_Load()
	a = 1
End Sub