Array
(
)

Label na vertical

Liany
   - 18 ago 2007


Citação:
Título editado por Massuda

O título foi mudado de ´Delphi´ para ´Label na vertical´

Estou tentando colocar um label na vertical seria esta linha de codigo:
Private Function ShowVertical(ByVal sMyString As String) As String
Dim sTheString As String
Dim i As Long
For i = 1 To Len(sMyString)
If i < Len(sMyString) Then
sTheString = sTheString + Mid$(sMyString, i, 1) & vbCrLf
Else
sTheString = sTheString + Mid$(sMyString, i, 1)
End If
Next
ShowVertical = sTheString
End Function

Private Sub Form_Load()
Label1.Caption = ShowVertical(Label1.Caption)
End Sub