Public Sub 第一个工程()
MsgBox "这是我的第一个过程"
Dim arrND(0 To 1, 0 To 1) As Variant
arrND(0, 0) = "Sample.vsd"
arrND(0, 1) = "111"
arrND(1, 0) = "222"
arrND(1, 1) = "333"
CreateDrawing (arrND())
End Sub
Public Sub CreateDrawing(arrNetData As Variant)
MsgBox arrNetData(0, 1)