'Für die Registrybearbeitung
Imports Microsoft.Win32
 
 'Zum Arbeiten mit der Registry
    Private regRegisterEintrag As RegistryKey = _
      Microsoft.Win32.Registry.LocalMachine
    Private strSubkeys() As String = regRegisterEintrag.OpenSubKey( _
    "Software").GetSubKeyNames()
 
Friend Function FindLangInReg() As String
        Try
            For i As Integer = 0 To strSubkeys.Length - 1
                If strSubkeys(i).ToString = "Dein Programm" Then
                    'Öffnet den Ordner in der Registry um dort zu lesen(bei 
                    ' TRUE wird der Schreibzugriff erlaubt).
                    regRegisterEintrag = _
                      Microsoft.Win32.Registry.LocalMachine.OpenSubKey _
                                                                    ("Software" & _
                                                                    "Dein" & _
                                                                    "Programm", _
                                                                    True)
                    FindLangInReg = regRegisterEintrag.GetValue("Language")
                    Exit For
                Else
                    FindLangInReg = ""
                End If
            Next
        Catch ex As Exception
            MessageBox.Show("Fehler beim Suchen oder Erstellen in der" & _
              "Registry!" & ex.Message)
        End Try
 
    End Function