Sub AddToExplorerContextMenu(ByVal ProgrammName As String, ByVal Endung As _
      String, ByVal IconPfad As String, ByVal Text As String, ByVal Command As _
      String)
        Dim ProgramKey As RegistryKey = Registry.ClassesRoot.CreateSubKey( _
        ProgrammName)
        Dim DefaultIconKey As RegistryKey = ProgramKey.CreateSubKey( _
        "DefaultIcon")
        DefaultIconKey.SetValue("", IconPfad)
        DefaultIconKey.Close()
        Dim Shellkey As RegistryKey = ProgramKey.CreateSubKey("Shell")
        Dim Entrykey As RegistryKey = Shellkey.CreateSubKey(Text)
        Dim Commandkey As RegistryKey = Entrykey.CreateSubKey("command")
        Commandkey.SetValue("", """" & Command & """" & "%1")
        Commandkey.Close()
        Entrykey.Close()
        Shellkey.Close()
        Dim Extensionkey As RegistryKey = Registry.ClassesRoot.CreateSubKey( _
          Endung)
        Extensionkey.SetValue("", ProgrammName)
        Extensionkey.Close()
    End Sub
'###Aufrufbeispiel:###
AddToExplorerContextMenu("MeinProgramm.Folder", ".folder", _
  My.Application.Info.DirectoryPath & "\MeinIcon.ico", open"," & _
  ""D:\Programme\MeinProgramm\MeinProgramm.exe")