Option Explicit
 
Dim navsound As String
 
Private Function getnavsound() As String
    Dim reg As Object
 
    Set reg = CreateObject("WScript.Shell")
    On Error Resume Next
    navsound = reg.RegRead( _
      "HKCU\AppEvents\Schemes\Apps\Explorer\Navigating\.Current\")
    getnavsound = navsound
End Function
 
Private Function navsoundoff() As String
    Dim reg As Object
 
    Set reg = CreateObject("WScript.Shell")
    reg.RegWrite "HKCU\AppEvents\Schemes\Apps\Explorer\Navigating\.Current\", _
      "", "REG_SZ"
End Function
 
Private Function navsoundon() As String
    Dim reg As Object
 
    Set reg = CreateObject("WScript.Shell")
    reg.RegWrite "HKCU\AppEvents\Schemes\Apps\Explorer\Navigating\.Current\", _
      navsound, "REG_SZ"
End Function
 
Private Sub Form_Load()
    If getnavsound <> "" Then navsoundoff
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    navsoundon
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...