紧急求助,请问如何实现Label竖排?

[LiaoCheng]

请问如何实现Label竖排?

[myhot-河马吃草]

是竖排又不是字体倒立。。

第一位的方法就可以了。。

[mmcgzs]

hnwx(为佳) 的方法不错

[lhuashang]

用图片代替不可以？

[hnwx]

Dim s As String
Dim i As Integer
Dim str0 As String
Label1.Caption = "sadjkahkshadjlksdh"
Label1.AutoSize = True
str0 = Label1.Caption
For i = 1 To Len(str0)
s = s + Mid$(str0, i, 1) & vbCrLf
Next i
Label1.Caption = s

[easydone]

选择字体名称前面带“@”符号的字体嘛。