Private Python2VBText As New TextBox

' Illustrate an awkward form of an interactive loop, entering lines,
' with an explicit check about continuing before each line.

Public Sub main()
    Dim lines As List(Of Object)
    lines =  New List(Of Object)
    Dim testAnswer As String
    testAnswer = InputBox("Press y if you want to enter more lines: ")
    while testAnswer = "y"
    Dim line As String
    line = InputBox("Next line: ")
        lines.add(line)
    testAnswer = InputBox("Press y if you want to enter more lines: ")

    End While
    Python2VBText.Text = Python2VBText.Text + "Your lines were:" + vbNewLine
    Python2VBText.MultiLine = True
    Python2VBText.Width = 200
    Python2VBText.Height = 100
    Form1.Controls.Add(Python2VBText)
    for line= 0 To lines.Count
    Python2VBText.Text = Python2VBText.Text +lines(line) + vbNewLine

    Next
End Sub
'main()