Private PI As Integer
Private Python2VBText As New TextBox

' Illustrate a global constant being used inside functions.
Public Sub Routine2
PI = 3.14159265358979   ' global constant -- only place the value of PI is set

End Sub
Public Function circleArea(radius As Object)

    Return PI*radius*radius    ' use value of global constant PI

End Function
Public Function circleCircumference(radius As Object)

    Return 2*PI*radius         ' use value of global constant PI

    End Function
Public Sub Routine3
    Python2VBText.Text = Python2VBText.Text + "circle area with radius 5:"+ circleArea(5).ToString + vbNewLine
    Python2VBText.MultiLine = True
    Python2VBText.Width = 200
    Python2VBText.Height = 100
    Form1.Controls.Add(Python2VBText)
    Python2VBText.Text = Python2VBText.Text + "circumference with radius 5:"+ circleCircumference(5).ToString + vbNewLine
End Sub