Private Sub Command1_Click()
 
    For i = 0 To 10
        If Text1.Text = "" Then
            Text1.Text = Label1(i).Top
        Else
            Text1.Text = Text1.Text & vbNewLine & Label1(i).Top
        End If
    Next i
 
End Sub

Private Sub Command2_Click()
 
    Dim St As String
    Dim SZ As String
    Dim Pos As Integer
    SZ = vbNewLine
    Dim a As Integer
    a = 0
 
    For i = 0 To 9
        St = Right(Text1.Text, Len(Text1.Text) - a)
        Pos = InStr(1, St, SZ, 0)
 
        With Text1
            .SelStart = a
            .SelLength = Pos - 1
            Label1(i).Caption = .SelText
        End With
        a = Pos
        a = a + Len(Text1) - Len(St)
    Next i
 
End Sub

Private Sub Command3_Click()
 
    For i = 0 To 10
        Label1(i).Caption = ""
    Next i
        Text1.Text = ""
End Sub