Private p2vbW As Integer Private p2vbH As Integer Private p2vbX1 As Integer Private p2vbY1 As Integer Private p2vbX2 As Integer Private p2vbY2 As Integer ' Simple example with Entry objects. ' Enter your name, click the mouse, and see greetings. ' ' from graphics import * Public Sub main() Dim winWidth As Integer winWidth = 300 Dim winHeight As Integer winHeight = 300 Dim infoHeight As Integer infoHeight = 15 Dim win As Integer Form1.Text = "Greeting" 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 * (( 40) / (p2vbY2 - p2vbY1))) instructions.Text = "Enter your name." + vbNewLine + "Then click the mouse." instructions.AutoSize = True Form1.Controls.Add(instructions) Dim entry1 As New TextBox entry1.Text = "dummy" entry1.Left = p2vbW * ((winWidth/2) / (p2vbX2 - p2vbX1)) entry1.Top = p2vbH - (p2vbH * (( 200) / (p2vbY2 - p2vbY1))) entry1.Width = 10 * 5 Form1.Controls.Add(entry1) Dim Control1 As New Label Control1.Left = p2vbW * ((winWidth/2) / (p2vbX2 - p2vbX1)) Control1.Top = p2vbH - (p2vbH * (( 230) / (p2vbY2 - p2vbY1))) Control1.Text = "Name:" Control1.AutoSize = True Form1.Controls.Add(Control1) InputBox("", "Mouse simulation") Dim name As String name = entry1.Text Dim greeting1 As String greeting1 = "Hello, " + (name).toString + "!" Dim Control2 As New Label Control2.Left = p2vbW * ((winWidth/3) / (p2vbX2 - p2vbX1)) Control2.Top = p2vbH - (p2vbH * (( 150) / (p2vbY2 - p2vbY1))) Control2.Text = greeting1 Control2.AutoSize = True Form1.Controls.Add(Control2) Dim greeting2 As String greeting2 = "Bonjour, " + (name).toString + "!" Dim Control3 As New Label Control3.Left = p2vbW * ((2*winWidth/3) / (p2vbX2 - p2vbX1)) Control3.Top = p2vbH - (p2vbH * (( 100) / (p2vbY2 - p2vbY1))) Control3.Text = greeting2 Control3.AutoSize = True Form1.Controls.Add(Control3) instructions.Text = "Click anywhere to quit." End Sub 'main()