' Function definition and invocation. Public Sub happyBirthdayEmily() Dim Python2VBText As New TextBox Python2VBText.Text = "Happy Birthday to you!" + vbNewLine Python2VBText.MultiLine = True Python2VBText.Width = 200 Python2VBText.Height = 100 Form1.Controls.Add(Python2VBText) Python2VBText.Text = Python2VBText.Text + "Happy Birthday to you!" + vbNewLine Python2VBText.Text = Python2VBText.Text + "Happy Birthday, dear Emily." + vbNewLine Python2VBText.Text = Python2VBText.Text + "Happy Birthday to you!" + vbNewLine End Sub Public Sub Routine2 happyBirthdayEmily() happyBirthdayEmily() End Sub