REGISTRI - EsisteKey

Public Function EsisteKey(ByVal NomeChiave As String) As Boolean
'**********************************************

' verifica se la chiave esiste nel registro

'**********************************************

EsisteKey = False
Const userRoot As String = "HKEY_CURRENT_USER\Software"
Dim subkey As String = NomeChiaveMadre
Dim keyName As String = userRoot & "\" & subkey
Dim Esiste As String = Registry.GetValue(keyName, NomeChiave, "")
If Esiste <> "" Then
'Beep()

EsisteKey = True
Else
EsisteKey = False
End If

End Function