VB的richtextbox控件怎么添加内容?

Private Sub Command1_Click()
RichTextBox1.Text = ""
RichTextBox1.Text = RichTextBox1.Text & "net use ipipc$ " & Chr(34) & " " & Chr(34) & " /user: " & Chr(34) & " " & Chr(34) & "建立IPC空链接" & vbCrLf
RichTextBox1.Text = RichTextBox1.Text & "net use ipipc$ " & Chr(34) & "密码" & Chr(34) & " /user:" & Chr(34) & "用户名" & Chr(34) & "建立IPC非空链接" & vbCrLf
'net use h: ipc$ "密码" /user:"用户名" 直接登陆后映射对方C：到本地为H:
'net use h: ipc$ 登陆后映射对方C：到本地为H:
'net use ipipc$ /del 删除IPC链接
'net use h: /del 删除映射对方到本地的为H:的映射
'net user 用户名　密码　/add 建立用户
'net user guest /active:yes 激活guest用户
'net user 查看有哪些用户
'net user 帐户名 查看帐户的属性
'net localgroup administrators 用户名 /add 把“用户”添加到管理员中使其具有管理员权限
End Sub