metin kutusunun tamamının seçilmesi

iyi günler
bir metin kutusuna girildiğinde tamamının seçilmesini sağlamak için nasıl bir kod yazmalıyız
hatta bu seçilen metni kopyalayıp başka bir yere yapıştırıyorum
metin kutusunun girildi olayına metnin hepsinin seçilip kopyalanmasını sağlayacak kod yazılabilir mi
(copy yapcak ama paste yapmayacak)
umarım anlatabilmişimdir
teşekkürler

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

çok teşekkürler
elinize sağlık
keşke kopalama kısmı da olsaydı

ctrl+c ile kopyalayıp istediğin yerde ctrl+v yapsan işini görürmü .

ilgin için teşekkürler
ctrl+c kısmını kod ile yapabilirmiyiz