Get Subkeys in registry

form.vb

Imports YourApp.Registry
Public Class frmMain
    Private Sub btnRegGet_Click(sender As Object, e As EventArgs) Handles btnRegGet.Click
        Try
            lbKeys.Items.Clear()

            For Each i In getKeys("SOFTWARE\Google")
              lbKeys.Items.Add(i.ToString)
            Next

        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
End Class

registry.vb

Imports Microsoft.Win32
Public Class Registry
        Shared Function getKeys(RegPath As String)
        Dim Keys As New List(Of String)
        Using hklm As RegistryKey = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, IIf(Environment.Is64BitOperatingSystem, RegistryView.Registry64, RegistryView.Registry32))
            Using key As RegistryKey = hklm.OpenSubKey(RegPath)
                For Each i In key.GetSubKeyNames
                  Keys.Add(i.ToString)
                Next
            End Using
        End Using
        Return Keys
    End Function
End Class