★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★剪粘板應用
Clipboard.Clear'剪粘板清除
Clipboard.SetText Text2.SelText'將text2中的選取文字複製到剪粘板上
Text2.SetText=""'如果想剪粘則加此行
Text1.Text = Clipboard.GetText'粘貼所選字符放在Text1
'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★剪粘板應用