怎么用VB生成Visio文件？高分

如何用VB生成Visio文件？高分求助。
像VB输出为Excel一样，VB是否也能输出为Visio文件？

请给予例子。

chenlian1226@163.com

[解决办法]
VB也可以操作VISIO啊
[解决办法]
Option Explicit
Dim vso As New Visio.Application
Private Sub Command1_Click()
vso.Visible = True
vso.Documents.Open "c:\tu1.vsd "

End Sub


Private Sub Form_Unload(Cancel As Integer)
Set vso = Nothing
End Sub