how can I put text in a label or other control that the letters will be verticals?
like:
"
A
B
C
"
10x,
yonatan
Printable View
how can I put text in a label or other control that the letters will be verticals?
like:
"
A
B
C
"
10x,
yonatan
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]
Label1.caption = "A" & vbcrlf & "B" & vbcrlf & "C"
Regards,
The Beret.
Regards,
The Beret.