namespace SymfoniaCOM2
{
    [Guid("6E804126-7FD5-40EE-B93E-E2B6C7B2DC95")]
    public interface ComInterface
    {
        void pokazCos();
    }
   
    [ComVisible(true), Guid("F5283D99-AC0C-4E44-94E5-65372C075C16"),
    ClassInterface(ClassInterfaceType.None), ProgId("SymfoniaCOM2.Class1")]
    public class Class1: ComInterface
    {
        public Class1()
        {
            new Kontrolka();
        }
        public void pokazCos()
        {
            new Kontrolka();
        }

    }
}

dispatch xDsp

form "UserControl", 400, 400
    control "SymfoniaCOM2.Class1.1", xDsp, 10, 10, 300, 300
execform

    public partial class mixKartoteka : UserControl
    {

[ComRegisterFunction()]
public static void RegisterClass ( string key )
{
  // Strip off HKEY_CLASSES_ROOT\ from the passed key as I don't need it
  StringBuilder sb = new StringBuilder ( key ) ;
  sb.Replace(@"HKEY_CLASSES_ROOT\","") ;

  // Open the CLSID\{guid} key for write access
  RegistryKey k = Registry.ClassesRoot.OpenSubKey(sb.ToString(),true);

  // And create the 'Control' key - this allows it to show up in
  // the ActiveX control container
  RegistryKey ctrl = k.CreateSubKey ( "Control" ) ;
  ctrl.Close ( ) ;

  // Next create the CodeBase entry - needed if not string named and GACced.
  RegistryKey inprocServer32 = k.OpenSubKey ( "InprocServer32" , true ) ;
  inprocServer32.SetValue ( "CodeBase" , Assembly.GetExecutingAssembly().CodeBase ) ;
  inprocServer32.Close ( ) ;

  // Finally close the main key
  k.Close ( ) ;
}

[ComUnregisterFunction()]
public static void UnregisterClass ( string key )
{
  StringBuilder sb = new StringBuilder ( key ) ;
  sb.Replace(@"HKEY_CLASSES_ROOT\","") ;

  // Open HKCR\CLSID\{guid} for write access
  RegistryKey k = Registry.ClassesRoot.OpenSubKey(sb.ToString(),true);

  // Delete the 'Control' key, but don't throw an exception if it does not exist
  k.DeleteSubKey ( "Control" , false ) ;

  // Next open up InprocServer32
  RegistryKey inprocServer32 = k.OpenSubKey ( "InprocServer32" , true ) ;

  // And delete the CodeBase key, again not throwing if missing
  k.DeleteSubKey ( "CodeBase" , false ) ;

  // Finally close the main key
  k.Close ( ) ;
}

dispatch xDsp

form "UserControl", 400, 400
control "SymfoniaCOM2.kontrolka", xDsp, 10, 10, 300, 300
execform