Private p2vbW As Integer
Private p2vbH As Integer
Private p2vbX1 As Integer
Private p2vbY1 As Integer
Private p2vbX2 As Integer
Private p2vbY2 As Integer

' Example with two Entry objects and type conversion.
' Version 2 with a function.
' Do addition.
'

' from graphics import *

Public Function makeLabeledEntry(entryCenterPt As Point, entryWidth As Integer, initialStr As String, labelText As String, win As Object)
    ' Return an Entry object with specifed center, width in characters, and
    ' initial string value.  Also create a static label over it with
    ' specified text.  Draw everything in the GraphWin win.
    '
    
    Dim entry As New TextBox

    entry.Left = entryCenterPt.X
    entry.Top = entryCenterPt.Y
    entry.Width = entryWidth
    entry.Text = initialStr
    Form1.Controls.Add(entry)

    Dim labelCenter As Point
    labelCenter = entryCenterPt
    labelCenter.X = labelCenter.X + 0
    labelCenter.Y = labelCenter.Y + 30
    Dim Control1 As New Label
    Control1.Left = p2vbW * ((labelCenter.X) / (p2vbX2 - p2vbX1))
    Control1.Top = p2vbH - (p2vbH * ((labelCenter.Y) / (p2vbY2 - p2vbY1)))
    Control1.Text = labelText
    Control1.AutoSize = True
    Form1.Controls.Add(Control1)

    Return entry
        
End Function

Public Sub main()
    Dim winWidth As Integer
    winWidth = 300
    Dim winHeight As Integer
    winHeight = 300
    
    Dim win As Integer
    Form1.Text = "Addition"
    Form1.Width = winWidth + 100
    p2vbW  =  winWidth
    Form1.Height = winHeight + 100
    p2vbH =  winHeight
    p2vbX1 = 0
    p2vbY1 = 0
    p2vbX2 = winWidth
    p2vbY2 = winHeight

    Dim instructions As New Label
    instructions.Left = p2vbW * ((winWidth/2) / (p2vbX2 - p2vbX1))
    instructions.Top = p2vbH - (p2vbH * (( 30) / (p2vbY2 - p2vbY1)))
    instructions.Text = "Enter two numbers." + vbNewLine + "Then click the mouse."
    instructions.AutoSize = True
    Form1.Controls.Add(instructions)

    Dim entry1 As TextBox

    entry1 = makeLabeledEntry(New Point(winWidth/2, 250), 25,"0", "First Number:", win)
    Dim entry2 As TextBox

    entry2 = makeLabeledEntry(New Point(winWidth/2, 180), 25,"0", "Second Number:", win)
     
    'win.getMouse()  ' To know the user is finished with the text.

    Dim num1 As Integer
    num1 = int(entry1.Text)
    Dim num2 As Integer
    num2 = int(entry2.Text)

    Dim result As String
    result = "The sum of" + vbNewLine + (num1).toString + vbNewLine + "plus" + vbNewLine + (num2).toString + vbNewLine + "is " + (num1+num2).toString + "."
    Dim Control2 As New Label
    Control2.Left = p2vbW * ((winWidth/2) / (p2vbX2 - p2vbX1))
    Control2.Top = p2vbH - (p2vbH * (( 110) / (p2vbY2 - p2vbY1)))
    Control2.Text =  result
    Control2.AutoSize = True
    Form1.Controls.Add(Control2)
    
    instructions.Text = "Click anywhere to quit."

End Sub

'main()