Visual Basic

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