Dikey yazı yazma

[pursdl]

arkadaşlar Ben textboxa veya labela yazıyı dikine yazmak istiyorum. Yardımcı olurmusun

[Revlis]

vb .net 2008 kullanıyorsan WPF kullanarak yapabilirsin.
Yoksa windows API lerini kullanman gerekiyor.
http://www.planet-source-code.com/vb...33883&lngWId=1 örnek kod.

[ali çetin]

Private Sub Form_Activate()
Dim s As String
Label1.Caption = "Visual Basic 2000"
For i = 1 To Len(Label1)
s = s & Mid$(Label1, i, 1) & vbCrLf
Next
Label1 = s
End Sub
dikkat: Label'i dikine çekmelisiniz
aynı şeyi bizamanlar bende aramıştım böyle yazdılar işime yaradı bu 6.0 için

[Revlis]

Private Sub Form_Activate()
Dim s As String
Label1.Caption = "Visual Basic 2000"
For i = 1 To Len(Label1)
s = s & Mid$(Label1, i, 1) & vbCrLf
Next
Label1 = s
End Sub
dikkat: Label'i dikine çekmelisiniz
aynı şeyi bizamanlar bende aramıştım böyle yazdılar işime yaradı bu 6.0 için

Bu kod her harfin sonuna [enter] koymaktan başka bir şey yapmıyor. Yukarıdaki örnek kodda yazılara 38 derece eğim verebilirsiniz.