въпрос за label

здравейте

начинаещ съм в програмирането с VB6 затова се извинявам предварително за въпроса който сигурно има елементарен отговор...но все пак да питам - мога ли във дадена форма да "обърна" текста на даден label вертикално, че нещо не намирам начина в properties....или се прави по друг начин...

и още нещо...има ли начин да се отпечата само даден frame от форма, заедно със съдържанието...

10х предварително на отговорилите

Private Function Vertical_Horizontal(ByVal nStr As String) As String



' Сложи един label1 във формата и един Command1 buttom.

' Label1.AutoSize = True

  

    Dim MyStr As String, i As Integer

    Static Vert As Boolean

    If Vert = False Then

       For i = 1 To Len(nStr)

           If i < Len(nStr) Then

               MyStr = MyStr + Mid$(nStr, i, 1) & vbCrLf

           Else

               MyStr = MyStr + Mid$(nStr, i, 1)

           End If

       Next

       Vertical_Horizontal = MyStr

       Vert = True

    Else

       For i = 1 To Len(nStr) Step 3

           MyStr = MyStr + Mid$(nStr, i, 1)

       Next

       Vertical_Horizontal = MyStr

       Vert = False

    End If

End Function





Private Sub Command1_Click()

    Label1.Caption = Vertical_Horizontal(Label1.Caption)

End Sub

10x