bu kodları örneğine ekle. tuş gönder komutu ile seçiyor.
ancak kopyalamayı bir türlü yapamadım. ^( C ) olması lazım ama sonuç vermedi. onuda yapan birisi çıkar umarım.

Private Sub Metin0_Click()
home
shiftend
End Sub

Private Sub home()
SendKeys "{HOME}", False
End Sub

Private Sub shiftend()
SendKeys "+{END}", False
End Sub