<ComVisibleAttribute(True)> _
<ClassInterfaceAttribute(ClassInterfaceType.None)> _
Public NotInheritable Class
 Activator
    Implements _Activator

Dim instance As Activator

[ComVisibleAttribute(true)] 
[ClassInterfaceAttribute(ClassInterfaceType.None)] 
public sealed class Activator : _Activator

[ComVisibleAttribute(true)] 
[ClassInterfaceAttribute(ClassInterfaceType::None)] 
public ref class Activator sealed : _Activator

/** @attribute ComVisibleAttribute(true) */ 
/** @attribute ClassInterfaceAttribute(ClassInterfaceType.None) */ 
public final class Activator implements _Activator

ComVisibleAttribute(true) 
ClassInterfaceAttribute(ClassInterfaceType.None) 
public final class Activator implements _Activator

Imports System.Reflection
Imports System.Text

Module Module1
    Sub Main()
        ' Create an instance of the StringBuilder type using Activator.CreateInstance.
        Dim o As Object
 = Activator.CreateInstance(GetType(StringBuilder))

        ' Append a string into the StringBuilder object and display
 the StringBuilder.
        Dim sb As StringBuilder = CType(o,
 StringBuilder)
        sb.Append("Hello, there.")
        Console.WriteLine(sb)

        ' Create an instance of the SomeType class that is defined in
 this assembly.
        Dim oh As Runtime.Remoting.ObjectHandle
 = _
            Activator.CreateInstanceFrom(Assembly.GetEntryAssembly().CodeBase,
 GetType(SomeType).FullName)

        ' Call an instance method defined by the SomeType type using
 this object.
        Dim st As SomeType = CType(oh.Unwrap,
 SomeType)
        st.DoSomething(5)
    End Sub

    Class SomeType
        Public Sub DoSomething(ByVal
 x As Int32)
            Console.WriteLine("100 / {0} = {1}", x,
 100 \ x)
        End Sub
    End Class
End Module

' This code produces the following output.
' 
' Hello, there.
' 100 / 5 = 20

<GuidAttribute("03973551-57A1-3900-A2B5-9083E3FF2943")>
 _
<InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIUnknown)> _
<CLSCompliantAttribute(False)> _
<ComVisibleAttribute(True)> _
Public Interface _Activator

Dim instance As _Activator

[GuidAttribute("03973551-57A1-3900-A2B5-9083E3FF2943")] 
[InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIUnknown)] 
[CLSCompliantAttribute(false)] 
[ComVisibleAttribute(true)] 
public interface _Activator

[GuidAttribute(L"03973551-57A1-3900-A2B5-9083E3FF2943")] 
[InterfaceTypeAttribute(ComInterfaceType::InterfaceIsIUnknown)] 
[CLSCompliantAttribute(false)] 
[ComVisibleAttribute(true)] 
public interface class _Activator

/** @attribute GuidAttribute("03973551-57A1-3900-A2B5-9083E3FF2943") */
 
/** @attribute InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIUnknown) */ 
/** @attribute CLSCompliantAttribute(false) */ 
/** @attribute ComVisibleAttribute(true) */ 
public interface _Activator

GuidAttribute("03973551-57A1-3900-A2B5-9083E3FF2943") 
InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIUnknown) 
CLSCompliantAttribute(false) 
ComVisibleAttribute(true) 
public interface _Activator