Imports Microsoft.Win32
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        TextBox1.Text = _RegKey()
 
    End Sub
 
    Private Function _RegKey() As String
 
        Dim BaseKey As RegistryKey
        Dim SubKey As RegistryKey
        Dim KeyPfad As String = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"
 
        If Environment.Is64BitOperatingSystem = True Then
            BaseKey = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, _
              RegistryView.Registry64)
            SubKey = BaseKey.OpenSubKey(KeyPfad, False)
        Else
            SubKey = Registry.LocalMachine.OpenSubKey(KeyPfad, False)
        End If
 
        Dim strKey As String = SubKey.GetValue("ProductName", New StringFormat)
 
        Return strKey
 
    End Function