' MODUL = Modul1.mod
Option Explicit
 
Private Const GWL_WNDPROC = -4
Private Const WM_COPY As Long = &H301
Private Const WM_CUT As Long = &H300
Private Const WM_NULL As Long = &H0
 
Private Declare Function DoCWP Lib "user32" Alias "CallWindowProcA" (ByVal _
  lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As _
  Long, ByVal lParam As Long) As Long
Private Declare Function DoSWL Lib "user32" Alias "SetWindowLongA" (ByVal hWnd _
As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
 
Private lOldAddr As Long
Private lWinHandle As Long
 
 
Public Function WndProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As _
  Long, ByVal lParam As Long) As Long
  If uMsg = WM_COPY Or uMsg = WM_CUT Then uMsg = WM_NULL    ' COPY/CUT nicht 
  ' zulassen
  WndProc = DoCWP(lOldAddr, hWnd, uMsg, wParam, lParam)
End Function
 
Public Sub DisableCopy(ByVal hWnd As Long)
  lWinHandle = hWnd     ' Handle speichern
  lOldAddr = DoSWL(hWnd, GWL_WNDPROC, AddressOf WndProc)
End Sub
 
Public Sub EnableCopy()
  DoSWL lWinHandle, GWL_WNDPROC, lOldAddr   'Alles wieder ins reine bringen!
End Sub
 
 
 
' - - - -
' FORM = Form1.frm
Option Explicit
 
Private Sub Form_Load()
  DisableCopy Text1.hWnd
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
  EnableCopy
End Sub

Ohne Mampf, kein Kampf !