• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Constantly clear the clipboard using a timer to prevent copy/paste.

Constantly clear the clipboard using a timer to prevent copy/paste.

Constantly clear the clipboard using a timer to prevent copy/paste.

API Declarations



Option Explicit
Private Declare Function Sleep Lib "kernel32" (ByVal dwmilliseconds As Long) As Long



Rate Constantly clear the clipboard using a timer to prevent copy/paste.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

If App.PrevInstance Then End
     App.TaskVisible = False
End Sub

''************************************
Private Sub Timer1_Timer()

    Dim inc As Integer
     On Error GoTo Save_Me

    Timer1.Interval = 250
    Clipboard.Clear

Exit Sub

''****************************************
''****************************************

Save_Me:
  
  If Err = 521 Then
    If inc > 10 Then
          MsgBox "Contact the owner, Error 521" & vbCrLf & "Urgent"
      Else
          inc = inc + 1
          Sleep 100
          Resume
      End If
    Else
        MsgBox Error$
    End If
End Sub