竖向显示标签中的文字

转载地址：http://www.tulongzhiji.com/forum/redirect.php?fid=32&tid=110&goto=nextoldset

 '标签文本竖向显示
   Dim MyStr   As String
   Dim i As Integer
   MyStr = ""
   For i = 1 To Len(Label2.Caption)
    If i < Len(Label2.Caption) Then

       MyStr = MyStr + Mid$(Label2.Caption, i, 1) & vbCrLf
    Else
     MyStr = MyStr + Mid$(Label2.Caption, i, 1)
    End If
  Next
   Label2.Caption = MyStr