Label na vertical

[quote:a953bc5cfc=´Moderação´]Título editado por Massuda

O título foi mudado de ´Delphi´ para ´Label na vertical´[/quote:a953bc5cfc]
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