textbox dikey

[skylift]

değerli arkadaşlar,

bir çalışma sayfasında açılan textbox' ın içine yazılan yazının dikey olması için bir yol var mı ? Teşekkürler..

 

[halit3]

textbox nesnesinde dikey yazılımı bilemiyorum ama label nesnesinde dikey yazılım yapmak mümkün aşağıdaki kodu dene

Private Sub UserForm_Initialize()
Dim Metin As String
Dim byt As Byte

Label1.Caption = "Süleyman"

For byt = 1 To Len(Label1)
Metin = Metin & Mid(Label1, byt, 1) & Chr(13)
Next byt

Label1 = Metin

End Sub

 

[skylift]

evet label nesnesinde oluyor. fakat textboxta olması gerekli.