Vb 2005 equivalent to VB6 CreateObject

Hi Terry,

Based on my understanding, you use the syntax below to create a COM object
in VB6.
mCatalog = CreateObject("g piCat2006.gpiCa t2006")
And the same code works in VB.NET.

Now you want to use the Activator.Creat eInstance approach to create the COM
Object.

If I misunderstood, please feel free to post here.

For CreateInstance, it needs a .NET type.
Here is some code snippet for your reference.
[VB6 COM]
Public Function Test() As String
Test = "Hello World!"
End Function

[VB.NET]
Imports System.Runtime. InteropServices
Module Module1
Sub Approach1()
Dim o As Object = CreateObject("T estLib.TestObj" )
Console.WriteLi ne(o.Test)
End Sub
Sub Approach2()
Dim t As Type = Type.GetTypeFro mProgID("TestLi b.TestObj")
Dim o As Object = Activator.Creat eInstance(t)
Console.WriteLi ne(o.Test)
End Sub
Sub Main()
Approach1()
Approach2()
End Sub
End Module

Please perform the test and let me know the result!

Thanks!
Best regards,

Peter Huang

Microsoft Online Community Support
=============== =============== =============== =====
When responding to posts, please "Reply to Group" via your newsreader so
that others may learn and benefit from your issue.
=============== =============== =============== =====
This posting is provided "AS IS" with no warranties, and confers no rights.

Hi Terry,

Thanks for your quickly reply!
For the call Dim t As Type = Type.GetTypeFro mProgID("TestLi b.TestObj")
The "TestLib.TestOb j" is the progid of the COM object, it is not a .NET
assembly, so it was not in the GAC.

So far I understand that you want to CreateInstance on a .NET assembly.
Here goes the code for your reference, all these is pure .NET code.
We need to use CreateInstanceF rom.

[Test Assembly]
Imports System.Reflecti on
Module Module1
Sub Main()
Dim path As String = <path to the dll>
Dim o As Object = Nothing
Try
o = Activator.Creat eInstanceFrom(p ath,
"WindowsApplica tion1.TestClass ").Unwrap()
Catch ex As Exception
Console.WriteLi ne(ex.ToString( ))
End Try
If o IsNot Nothing Then
Console.WriteLi ne(o.Test())
End If
End Sub
End Module
["WindowsApplica tion1.TestClass "]
Public Class TestClass
Public Function Test() As String
Return "hello"
End Function
End Class
Best regards,

Peter Huang

Microsoft Online Community Support
=============== =============== =============== =====
When responding to posts, please "Reply to Group" via your newsreader so
that others may learn and benefit from your issue.
=============== =============== =============== =====
This posting is provided "AS IS" with no warranties, and confers no rights.

Hi Terry,

Thanks for your quickly reply!

I look forward to hear from you!

Best regards,

Peter Huang

Microsoft Online Community Support
=============== =============== =============== =====
When responding to posts, please "Reply to Group" via your newsreader so
that others may learn and benefit from your issue.
=============== =============== =============== =====
This posting is provided "AS IS" with no warranties, and confers no rights.

Hi Terry,

Thanks for your quickly reply!
You are correct, if you still have any concern, please feel free to post
here.

Best regards,

Peter Huang

Microsoft Online Community Support
=============== =============== =============== =====
When responding to posts, please "Reply to Group" via your newsreader so
that others may learn and benefit from your issue.
=============== =============== =============== =====
This posting is provided "AS IS" with no warranties, and confers no rights.