TextBox İçeriğindeki Yazıyı Kopyalama

[ormann]

Günaydın;
TextBox içerisindeki yazının içeriğini iki yana yaslanmış bir şekilde kopyalamak mümkün mü?.Aşağıdaki koda nasıl bir ilave kod yapılabilir .

Dim d As New DataObject
Sub kopyala()
If TextBox1.Text = "" Then
MsgBox ("textbox1 kopyalanacak veri buunamadı")
Else
d.SetText TextBox1.Text
d.PutInClipboard
MsgBox TextBox1.Value & ("  Verisi kopyalandı")
End If
End Sub