Imports System
Imports Microsoft.Win32
Public Module modmain
   Sub Main()
     'The KPD-Team 2001
     'URL: http://www.allapi.net/dotnet/
     'E-Mail: KPDTeam@Allapi.net
      'Create a new registry key
      ' HKEY_CURRENT_USER\Software\AllAPI.net
      Dim RegKey as RegistryKey = Registry.CurrentUser.CreateSubKey( _
         "Software\AllAPI.net")
      'Set the value of 'URL' to 'http://www.allapi.net/'
      RegKey.SetValue("URL", "http://www.allapi.net/")
      'Delete 'URL'
      RegKey.DeleteValue("URL")
      'Delete the subkey AllAPI.net
      Registry.CurrentUser.DeleteSubKey("Software\AllAPI.net")
      'Close the registry key
      RegKey.Close()
   End Sub
End Module

Close this window