Disable paste Option@vb6

Disable Paste Option in xp Programed By VB6...
take a timer & set interval =1
write the one line code inside the timer's code

Private Sub Timer1_Timer()
Clipboard.Clear
End Sub

Run the program.Notice that you cant paste any thing in your system.
Thank you.