Dim key As RegistryKey = Registry.ClassesRoot.OpenSubKey("*\shell\" _
              & keyname & "\command", True)
 
            If key Is Nothing Then          
                key = Registry.ClassesRoot.CreateSubKey("*\shell\" & keyname & _
                  "\command")
            End If
            key.SetValue("", Environment.CurrentDirectory + "\NameDesProgramms " & _
              """%1""");

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov