Wednesday, May 20, 2009

Copy to Clipboard

Private Sub Command1_Click()
Clipboard.Clear
Clipboard.SetText
Text1.Text
End Sub

Private Sub Command2_Click()
Text1.Text = Clipboard.GetText
End Sub

No comments:

Post a Comment