الغاء ازرار النسخ واللصق في لوحة المفاتيح Ctrl+C , Ctrl+V
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If (Shift And 2) And (KeyCode = Asc("C")) Then
KeyCode = 0
MsgBox "No Coping Allowed, Cheater!!!"
ElseIf (Shift And 2) And (KeyCode = Asc("V")) Then
KeyCode = 0
MsgBox "No Pasting Allowed, Cheater!!!"
End If
End Sub