Code:
'PUT INTO .BAS MODULE Public Sub RegMonitor(hKey As ROOT_KEYS, sRegKeyPath As String, _ bWatchSubTree As Boolean, dwFilters As NOTIFY_EVENTS) Dim lKeyHandle As Long, lRet As Long lRet = RegOpenKey(hKey, sRegKeyPath, lKeyHandle) RegNotifyChangeKeyValue lKeyHandle, bWatchSubTree, _ dwFilters, 0&, False lRet = RegCloseKey(lKeyHandle) End Sub '---Using--- Private Sub Command1_Click() Dim cap As String sChange = "" cap = Caption Caption = "Monitoring..." Label1 = "Try to change HKEY_CURRENT_USER\Software\VB and VBA Program Settings\Registry Notification\Hello\Testing" Label1 = Label1 & vbCrLf & "or any other key under HKCU\Software\VB and VBA Program Settings with RegEdit" Call RegMonitor(HKEY_CURRENT_USER, "Software\VB and VBA Program Settings", True, REG_NOTIFY_CHANGE_ATTRIBUTES + REG_NOTIFY_CHANGE_LAST_SET + REG_NOTIFY_CHANGE_NAME + REG_NOTIFY_CHANGE_SECURITY) ' Try to change this key or any other under HKCU Label1 = "Your key have been changed!!!" Label1 = Label1 & vbCrLf & "Press command button to start monitoring. (Your App will freeze while monitoring)" Caption = cap End Sub Private Sub Form_Load() Label1 = "Application created a temporary registry key:" Label1 = Label1 & vbCrLf & "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\Registry Notification\Hello\Testing" Label1 = Label1 & vbCrLf & "Press command button to start monitoring. (Your App will freeze while monitoring)" 'Create a temporary registry key SaveSetting "Registry Notification", "Hello", "Testing", "123" End Sub