کپی کردن متن

[roo.row]

با سلام
در حال انجام پروژه ای هستم و ممنون می شوم سوالم را پاسخ دهید
اگر ما متنی را در تکس باکس داشته باشیم و یک کامند به نام کامند3 داشته باشیم
چگونه می تونیم تعریف کنیم که با زدن دکمه متن داخل تکس باکس کلا روی کلیپ برد کپی بشه ؟
با تشکر

[pbm_soy]

در مثال زیر دو تا باتن داریم با دوتا تکست باکس بازدن باتن یک متن آن در Clip Board ذخیره میشود و با زدن باتن دوم متن موجود در Clip Board در تکست باکس دوم نمایش داده میشود


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

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