Private temperature As Integer Private Python2VBText As New TextBox ' A simple while loop. Public Sub Routine2 temperature = 115 while temperature > 112 Python2VBText.Text = Python2VBText.Text +temperature.ToString + vbNewLine Python2VBText.MultiLine = True Python2VBText.Width = 200 Python2VBText.Height = 100 Form1.Controls.Add(Python2VBText) temperature = temperature - 1 End While Python2VBText.Text = Python2VBText.Text + "The tea is cool enough." + vbNewLine End Sub