Public Shared Function AddToExplorerContextMenu(ByVal extension As String, _
    ByVal text As String, ByVal command As String,IconPath As String) As Boolean
    Try
      Dim Extensionkey As RegistryKey = Registry.ClassesRoot.CreateSubKey( _
        extension)
      Dim IconPathKey As RegistryKey = Registry.ClassesRoot.CreateSubKey( _
      "DefaultIcon")
      IconPathKey.SetValue("","""" & IconPath & """" & ",0")
      IconPathKey.Close()
      Dim Shellkey As RegistryKey = Extensionkey.CreateSubKey("Shell")
      ' Öffnen: HKEY_CLASSES_ROOT\.js\Shell\In JSEdit bearbeiten
      Dim Entrykey As RegistryKey = Shellkey.CreateSubKey(text)
      ' Öffnen: HKEY_CLASSES_ROOT\.js\Shell\In JSEdit bearbeiten\command
      Dim Commandkey As RegistryKey = Entrykey.CreateSubKey("command")
      Commandkey.SetValue("", command)
      Commandkey.Close()
      Entrykey.Close()
      Shellkey.Close()
      Extensionkey.Close()
      Return True
    Catch ex As Exception
      Return False
    End Try
  End Function
 
'#####Aufrufbeispiel:#####
AddToExplorerContextMenu(".js", "In JSEdit bearbeiten", "C:\jsedit.exe" & _
  """%1""","C:\MeinIcon.ico")