كود منع النسخ من البرنامج

ضع الكود في الفورم

Private Sub Form_Load()

Timer1.Interval = 1

End Sub

Private Sub Timer1_Timer()

   R = Clipboard.GetText

   If Len(R) = 0 Then

   Clipboard.Clear

   End If

End Sub