Imports CSharpClassNameSpace.CSharpClass

Public Class VBClass
    Dim CSharpObj As CSharpClassNameSpace.CSharpClass
    Public Sub New()
        CSharpObj = New CSharpClassNameSpace.CSharpClass()
    End Sub
    Public Sub VBSaySomething(ByVal str As String)
        CSharpObj.SaySomething("  呵呵，我從VB組件中調(diào)用了C＃組件中的方法來(lái)實(shí)現(xiàn)我的功能,傳入的字串是:" + str)
    End Sub

End Class