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. ' Do addition. ' ' from graphics import * 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 New TextBox entry1.Left = p2vbW * ((winWidth/2) / (p2vbX2 - p2vbX1)) entry1.Top = p2vbH - (p2vbH * (( 250) / (p2vbY2 - p2vbY1))) entry1.Width = 25 entry1.Text = "0" Form1.Controls.Add(entry1) Dim Control1 As New Label Control1.Left = p2vbW * ((winWidth/2) / (p2vbX2 - p2vbX1)) Control1.Top = p2vbH - (p2vbH * (( 280) / (p2vbY2 - p2vbY1))) Control1.Text = "First Number:" Control1.AutoSize = True Form1.Controls.Add(Control1) Dim entry2 As New TextBox entry2.Left = p2vbW * ((winWidth/2) / (p2vbX2 - p2vbX1)) entry2.Top = p2vbH - (p2vbH * (( 180) / (p2vbY2 - p2vbY1))) entry2.Width = 25 entry2.Text = "0" Form1.Controls.Add(entry2) Dim Control2 As New Label Control2.Left = p2vbW * ((winWidth/2) / (p2vbX2 - p2vbX1)) Control2.Top = p2vbH - (p2vbH * (( 210) / (p2vbY2 - p2vbY1))) Control2.Text = "Second Number:" Control2.AutoSize = True Form1.Controls.Add(Control2) 'win.getMouse() ' To know the user is finished with the text. Dim numStr1 As Integer numStr1 = entry1.Text Dim num1 As Integer num1 = int(numStr1) Dim numStr2 As Integer numStr2 = entry2.Text Dim num2 As Integer num2 = int(numStr2) Dim result As String result = "The sum of" + vbNewLine + (num1).toString + vbNewLine + "plus" + vbNewLine + (num2).toString + vbNewLine + "is " + (num1+num2).toString + "." Dim Control3 As New Label Control3.Left = p2vbW * ((winWidth/2) / (p2vbX2 - p2vbX1)) Control3.Top = p2vbH - (p2vbH * (( 110) / (p2vbY2 - p2vbY1))) Control3.Text = result Control3.AutoSize = True Form1.Controls.Add(Control3) instructions.Text = "Click anywhere to quit." End Sub 'main()