codice:
My.Computer.Registry.ClassesRoot.CreateSubKey(".ext").SetValue("", "MyFileType", RegistryValueKind.String)
My.Computer.Registry.ClassesRoot.CreateSubKey("MyFileType\shell\open\command").SetValue("", Application.ExecutablePath + " ""%l"" ", RegistryValueKind.String)
Mi raccomando, ricordati di cambiare "MyFileType" in qualcosa di più significativo.