Public Class Form1
    Private Declare Function RegSetValueEx Lib "advapi32.DLL" _
      Alias "RegSetValueExA" (ByVal Hkey As Long, _
      ByVal lpValueName As String, ByVal Reserved As Long, _
      ByVal dwType As Long, ByVal lpData As Long, ByVal cbData As Long) _
      As Long
 
    Private Declare Function RegCreateKey Lib "advapi32.DLL" _
      Alias "RegCreateKeyA" (ByVal Hkey As Long, _
      ByVal lpSubKey As String, ByVal phkResult As Long) As Long
 
    Private Declare Function RegCloseKey Lib "advapi32.DLL" _
      (ByVal Hkey As Long) As Long
 
    Private Declare Function ExitWindowsEx Lib "user32" _
      (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
 
    Private Const EWX_REBOOT = 2
    Private Const EWX_FORCE = 4
    Private Const EWX_LOGOFF = 0
    Private Const EWX_SHUTDOWN = 1
 
    Private Const HKEY_CLASSES_ROOT = &H80000000
    Private Const REG_DWORD = 4
    Private Const REG_SZ = 1
 
    Private Sub fSaveNewName(ByVal Hkey As Long, ByVal sPath As String, _
    ByVal sValue As String, ByVal sData As String)
 
        Dim lKey As Long
        Dim lRet As Long
 
        lRet = RegCreateKey(Hkey, sPath, lKey)
  lRet = RegSetValueEx(lKey, sValue, 0, REG_SZ,ByVal sData, Len(sData))
        lRet = RegCloseKey(lKey)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim sText As String
 
        sText = InputBox("Neue Bezeichnung für den Papierkorbes", _
          "Papierkorb...")
 
        If sText <> "" Then
            fSaveNewName(HKEY_CLASSES_ROOT, _
              "CLSID\{645FF040-5081-101B-9F08-00AA002F954E}", ("pre"), sText)
        End If
    End Sub
End Class