Imports Microsoft.Win32
 
Public Class Form1
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        Dim iWErt As Integer = RegistryEintragAuslesen( _
        "Software\Wow6432Node\Irgendwas\Desktop\MainWindow", "PrintAvailable")
 
        MessageBox.Show(iWErt)
 
    End Sub
 
    Private Function RegistryEintragAuslesen(ByVal Pfad As String, ByVal Key As _
      String) As String
 
        Dim MeinKey As RegistryKey
        Dim Wert As String
        MeinKey = Registry.LocalMachine.OpenSubKey(Pfad)
        If MeinKey Is Nothing Then
            Wert = "0"
        Else
            Wert = MeinKey.GetValue(Key, "0")
            MeinKey.Close()
        End If
        Return Wert
 
    End Function
 
End Class

EALA FREYA FRESENA