Public Sub SubKeyLoeschen(ByVal Zweig As String, ByVal Unterzweig As String)
 
        Dim MeinKey As RegistryKey
 
        MeinKey = Registry.CurrentUser.OpenSubKey(Zweig, True)
        MeinKey.DeleteSubKey(Unterzweig)
 
        MeinKey.Close()
 
    End Sub
 
    Public Sub SubKeyTreeLoeschen(ByVal Zweig As String, ByVal Unterzweig As _
      String)
 
        Dim MeinKey As RegistryKey
 
        MeinKey = Registry.CurrentUser.OpenSubKey(Zweig, True)
        Try
            MeinKey.DeleteSubKeyTree(Unterzweig)
        Catch ex As Exception
 
        End Try
 
        MeinKey.Close()
 
    End Sub
 
    Public Function RegistrySchluesselVorhanden(ByVal Pfad As String) As Boolean
 
        Dim MeinKey As RegistryKey
        MeinKey = Registry.CurrentUser.OpenSubKey(Pfad)
        If MeinKey Is Nothing Then
            Return False
        Else
            Return True
        End If
 
    End Function

EALA FREYA FRESENA