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
      Dim Cnt as Integer
      'Open the registry key
      Dim RegKey as RegistryKey = Registry.CurrentUser.CreateSubKey( _
         "Software")
      Dim SubKeys() as String = RegKey.GetSubKeyNames()
      If SubKeys.Length > 0 Then
         For Cnt = 0 to SubKeys.Length - 1
            Console.WriteLine(SubKeys(Cnt))
         Next Cnt
      Else
         Console.WriteLine("")
      End If
      'Close the registry key
      RegKey.Close()
   End Sub
End Module

Close this window