Visual Basic

Public Sub SBVocalCut32(ByVal handle As Long, ByVal channel As Long, ByVal buffer As Long, ByVal length As Long, ByVal user As Long)<br />
Dim SBVocCut32Buf() As Single, SBVocCut32CSample As Long<br />
Dim SBVocCut32DM As Single<br />
ReDim SBVocCut32Buf(length / 2) As Single<br />
<br />
Call CopyMemory(SBVocCut32Buf(0), ByVal buffer, length)<br />
    <br />
    For SBVocCut32CSample = 0 To length / 2 - 1 Step 2<br />
        SBVocCut32DM = ((0 - SBVocCut32Buf(SBVocCut32CSample)) + SBVocCut32Buf(SBVocCut32CSample + 1)) / 2<br />
        SBVocCut32Buf(SBVocCut32CSample) = SBVocCut32DM<br />
        SBVocCut32Buf(SBVocCut32CSample + 1) = SBVocCut32DM<br />
    Next SBVocCut32CSample<br />
    <br />
<br />
Call CopyMemory(ByVal buffer, SBVocCut32Buf(0), length)<br />
End Sub

Public Function PreFilterMessage(ByRef msg As Message) As Boolean Implements IMessageFilter.PreFilterMessage

    Const WM_KEYDOWN As Integer = 256
       If msg.Msg = WM_KEYDOWN Then
           Dim keyCode As Keys = (CType(CType(msg.WParam, Integer), Keys) And Keys.KeyCode)
           If pg.SelectedGridItem.PropertyDescriptor IsNot Nothing Then
               If (pg.SelectedGridItem.PropertyDescriptor.DisplayName = "Picture" Or _
                           pg.SelectedGridItem.PropertyDescriptor.DisplayName = "BackgroundPicture" _
                               And Not keyCode = Keys.Delete And Not (keyCode = Keys.Control And keyCode = Keys.C) _
                               And Not (keyCode = Keys.Control And keyCode = Keys.V) _
                               And Not (keyCode = Keys.Control And keyCode = Keys.X) _
                               And Not (keyCode = Keys.Control And keyCode = Keys.A) _
                               And Not (keyCode = Keys.Control And keyCode = Keys.Z) _
                               And Not (keyCode = Keys.Control And keyCode = Keys.Y)) Then
                   Return True
               End If
           End If
       End If
       Return False
   End Function