Clipboard
Sample Code :
CutPrivate Sub Command1_Click()
Clipboard.Clear
Clipboard.SetText (Text1.Text)
Text1.SelText = ""
End Sub
Copy
Private Sub Command2_Click()
Clipboard.Clear
Clipboard.SetText (Text1.Text)
End Sub
Paste
Private Sub Command3_Click()
Text1.SelText = Clipboard.GetText()
End Sub
Select All
Private Sub Command4_Click()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
Full Code :
Output(Clipboard.exe)
Full code(Clipboard.docx)
Full project(Clipboard.zip)
*Note Full project require Visual Basic 6.0