Public Class Form1
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim reg As Microsoft.Win32.RegistryKey
        Dim SubKey13 As String = "SYSTEM\CurrentControlSet\Control\Keyboard" & _
          "Layout"
        Dim names() As String = _
        Microsoft.Win32.Registry.LocalMachine.OpenSubKey( _
        SubKey13).GetSubKeyNames
        For i As Integer = 0 To names.Length - 1
            reg = Microsoft.Win32.Registry.LocalMachine.OpenSubKey( _
              System.IO.Path.Combine(SubKey13, names(i)))
            For Each v As String In reg.GetValueNames
                Dim v1 As Object = reg.GetValue(v)
                Stop
            Next
        Next
        Stop
    End Sub
End Class