vertical text?

[yonatan_maman]

how can I put text in a label or other control that the letters will be verticals?

like:
"
A
B
C
"

10x,
yonatan

[Iouri]

Private Sub Command1_Click()
Dim i As Integer
Dim MyStr As String
Static Vert As Boolean

Label1.AutoSize = True
If Vert = False Then
For i = 1 To Len(Label1)
If i < Len(Label1) Then
MyStr = MyStr + Mid$(Label1, i, 1) & vbCrLf
Else
MyStr = MyStr + Mid$(Label1, i, 1)
End If
Next
Label1 = MyStr
Vert = True
Else
For i = 1 To Len(Label1) Step 3
MyStr = MyStr + Mid$(Label1, i, 1)
Next
Label1 = MyStr
Vert = False
End If
End Sub


Iouri Boutchkine
[email protected]

[Green_Beret]

Label1.caption = "A" & vbcrlf & "B" & vbcrlf & "C"

Regards,
The Beret.

Regards,
The Beret.