1.打开vb，选择'ACTIVEX控件'。
2.在窗口上放置一个按钮和一个ComDialog控件。
3.双击按钮，写程序：
Private Sub Command1_Click()

On Error GoTo Err_Handle
Dim i As Integer
'i存储空格位置
Dim z As Integer
'z存储查找的起始位置
Dim FileNames() As String
'FileNames树组存储划分后的文件目录和文件名称
CommonDialog1.FileName = ""
CommonDialog1.Filter = "RTF Files*.*"
CommonDialog1.Flags = cdlOFNAllowMultiselect
'设置CommonDialog1控件属性
CommonDialog1.ShowOpen
'显示打开对话框
CommonDialog1.FileName = CommonDialog1.FileName & Chr(32)
'在CommonDialog1的FileName属性值后面添加空格
For i = 1 To Len(CommonDialog1.FileName)
i = InStr(z, CommonDialog1.FileName, Chr(32))
'设置i为FileName属性值中空格的位置
If i = 0 Then Exit For
ReDim Preserve FileNames(y)
FileNames(y) = Mid(CommonDialog1.FileName, z, i - z)
'将FileName属性以空格作为划分标志
'分成若干部分存储到FileNames数组
z = i + 1
Next
Form1.RichTextBox1.LoadFile (FileNames(0))
Exit Sub
Err_Handle:
MsgBox Err.Des cription
Exit Sub
End Sub
4.生成工程。
5.在wincc画面编辑器里插入一个“插入控件”，选择“注册”，选择刚刚生成的vb工程文件。
6.运行，就可以使用了。