Bloqueando funções Copiar e Colar em caixas de texto (VB3 VB4)

As funções Copiar (CTRL+C) e Colar (CTRL+V) estão sempre disponíveis para text boxes, mas e se você não desejar que estas funções funcionem? Você deve supor que o evento KeyDown consegue detectar CTR+C e CTRL+V, mas não detecta. No evento KeyPress, estas teclas podem ser capturadas:


Sub Text1_KeyPress (KeyAscii As Integer)
If KeyAscii = 3 Or KeyAscii = 22 Then KeyAscii = 0
End Sub


'CTRL+C = 3 e CTRL+V = 22, valores não constantes na tabela ANSI,
'geram estas combinações. Recurso não documentado