Public Function DeleteSubKeyValue(ByVal MainKey As RegistryKey, ByVal sKey As String, ByVal sKeyName As String) As Boolean
        Dim rkKey As RegistryKey

        Try
            rkKey = MainKey.OpenSubKey(sKey, True)
            MainKey.DeleteValue(sKeyName, True)
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function