Function CoGetClassObject(<MarshalAs(UnmanagedType.LPStruct)> rclsid As Guid,

You can instantiate a IClassFactory2 thanks to the CoGetClassObject (from OLE32.DLL)

    IClassFactory2 icf2 = Ole32.CoGetClassObject(

    Dim classFactory As IClassFactory2 = CoGetClassObject(GetType(ComMyLibraryClass).GUID,CLSCTX.CLSCTX_LOCAL_SERVER,

You can instantiate a IClassFactory2 thanks to the CoGetClassObject (from OLE32.DLL)

    IClassFactory2 icf2 = Ole32.CoGetClassObject(

static extern object CoGetClassObject(

Declare Unicode Function CoGetClassObject _

    Alias "CoGetClassObject" _