Visual Basic

Case HDN_TRACKA, HDN_TRACKW
                CopyMemory tHDN, ByVal lParam, LenB(tHDN)
                '/* Get HD_ITEM from tHDN.lPtrHDItem.  Don't use a HD_ITEM
                '/* structure - you will crash...
                '/* Here we only need up to the second long (HD_ITEM.cxy)
                ReDim lHDI(0 To 1) As Long
                CopyMemory lHDI(0), ByVal tHDN.lPtrHDItem, 8
                RaiseEvent ColumnWidthChanging(tHDN.iItem, lHDI(1), bCancel)
                If bCancel Then
                    lReturn = 1
                    bHandled = True
                End If

Private Sub m_cHeader_ColumnWidthChanging(ByVal lColumn As Long, _
                                          lWidth As Long, _
                                          bCancel As Boolean)

Dim iCol    As Long
Dim iIntCol As Long
Dim tR      As RECT
Dim tClipRect     As RECT
Dim iCurrentCol As Long

    For iCol = 1 To m_iCols
        If (m_tCols(iCol).lHeaderColIndex = lColumn + 1) Then
            iCurrentCol = iCol
        End If
    Next

    If Not m_tCols(iCurrentCol).lMaxWidth = -1 Then
         If lWidth > m_tCols(iCurrentCol).lMaxWidth Then
             ClipCursorRect tClipRect
         End If
    End If
    If Not m_tCols(iCurrentCol).lMinWidth = -1 Then
         If lWidth < m_tCols(iCurrentCol).lMinWidth Then
             ClipCursorRect tClipRect
         End If
    End If
   
    pGetDragImageRect lColumn, lWidth, tR, False
    DrawDragImage tR, False, False
    RaiseEvent ColumnWidthChanging(lColumn, lWidth, bCancel)
    If bCancel Then
        DrawDragImage tR, False, True
    End If
  
End Sub

Private Sub pGerClipColRect(ByVal lCol As Long, _
                                   ByVal lMaxWidth As Long, _
                                   ByVal lMinWidth As Long, _
                                   ByRef tR As RECT)

Dim iCol  As Long
Dim iGCol As Long
Dim tP    As POINTAPI

'/* Find RECT for header column with Max and Min Width to stop sizing when out of boundary:

    If lCol > 0 Then
        '/* Add the width:

        If Not m_tCols(lCol).lMinWidth = -1 Then
            tR.left = m_tCols(lCol).lStartX + m_tCols(lCol).lMinWidth
        Else
            tR.left = m_tCols(lCol).lStartX
        End If
       
        If Not m_tCols(lCol).lMaxWidth = -1 Then
            tR.right = m_tCols(lCol).lStartX + m_tCols(lCol).lMaxWidth
        Else
            tR.right = m_tCols(lCol).lStartX
        End If
       
        With tR
            .left = .left - m_lStartX
            .top = 0   'start from top of usercontrol 'm_cHeader.Height + m_cHeader.top
            .bottom = UserControl.ScaleHeight \ Screen.TwipsPerPixelY
            '/* Return the rectangle relative to the screen:
            tP.x = .left
            tP.y = .top
        End With

        '//Return the rectangle left and top relative to the screen:
        ClientToScreen UserControl.hwnd, tP
        With tR
            .left = tP.x
            .top = tP.y
            tP.x = .right
            tP.y = .bottom
        End With

        '//Return the rectangle right and bottom relative to the screen:
        ClientToScreen UserControl.hwnd, tP
        tR.right = tP.x
        tR.bottom = tP.y
    End If

End Sub

<br />
Imports System<br />
Imports Microsoft.Win32<br />
Imports System.Runtime.InteropServices<br />
<br />
Module [aclickdisabler]<br />
    Dim HisSoundO, HisSoundM As String<br />
<br />
<br />
<br />
    Private Sub readKey()<br />
        On Error Resume Next<br />
        Dim oReg As RegistryKey<br />
        Dim tmpS As String<br />
        oReg = Registry.CurrentUser.OpenSubKey("AppEvents\\Schemes\\Apps\\Explorer\\Navigating\\.Current")<br />
        tmpS = oReg.GetValue("", "").ToString '%SystemRoot%\media\Windows XP Start.wav<br />
        oReg.Close()<br />
<br />
        If tmpS = "" Then<br />
        Else<br />
            If tmpS.Contains(":\") Then<br />
            Else<br />
                tmpS = "C:\WINDOWS\Media\" + tmpS<br />
            End If<br />
            HisSoundO = tmpS<br />
            HisSoundM = System.IO.Path.GetDirectoryName(HisSoundO) & "\" & System.IO.Path.GetFileNameWithoutExtension(HisSoundO) & ".blocked"<br />
        End If<br />
        <br />
    End Sub<br />
<br />
    Public Sub ED_Navigate_Sound(ByVal Enabled As Boolean)<br />
        'On Error Resume Next<br />
<br />
        Dim oReg As RegistryKey<br />
        oReg = Registry.CurrentUser.OpenSubKey("AppEvents\\Schemes\\Apps\\Explorer\\Navigating\\.Default", True)<br />
        oReg.SetValue("", "C:\Windows\f***in_non_exsisting_file.wav")<br />
        oReg.Close()<br />
<br />
        readKey()<br />
<br />
        'MsgBox(HisSoundO + "-" + HisSoundM)<br />
        If Enabled = True Then<br />
            System.IO.File.Move(HisSoundM, HisSoundO)<br />
            'My.Computer.FileSystem.RenameFile(HisSoundM, HisSoundO)<br />
            'Dim oReg As RegistryKey<br />
            'oReg = Registry.CurrentUser.OpenSubKey("AppEvents\\Schemes\\Apps\\Explorer\\Navigating\\.Current", True)<br />
            'oReg.SetValue("", HisSound, RegistryValueKind.ExpandString)<br />
            'oReg.Close()<br />
        ElseIf Enabled = False Then<br />
            System.IO.File.Move(HisSoundO, HisSoundM)<br />
            'Kill(HisSoundO)<br />
            'My.Computer.FileSystem.RenameFile(HisSoundO, HisSoundM)<br />
            'Dim oReg As RegistryKey<br />
            'oReg = Registry.CurrentUser.OpenSubKey("AppEvents\\Schemes\\Apps\\Explorer\\Navigating\\.Current", True)<br />
            'oReg.SetValue("", "", RegistryValueKind.ExpandString)<br />
            'oReg.Close()<br />
        End If<br />
<br />
    End Sub<br />
<br />
End Module [NOTHING]<br />