VERSION 4.00 Begin VB.Form Form1 Caption = " Geometrical Inversion" ClientHeight = 8205 ClientLeft = 3090 ClientTop = 3210 ClientWidth = 10965 Height = 8715 Left = 3030 LinkTopic = "Form1" ScaleHeight = 8205 ScaleWidth = 10965 Top = 2760 Width = 11085 Begin VB.CommandButton Command1 Caption = "Draw" Height = 375 Left = 3720 TabIndex = 2 Top = 240 Width = 975 End Begin VB.TextBox Text1 Height = 375 Left = 2520 TabIndex = 1 Text = "5" Top = 240 Width = 855 End Begin VB.Label Label1 Caption = "Inversion Power" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 840 TabIndex = 0 Top = 240 Width = 1575 End End Attribute VB_Name = "Form1" Attribute VB_Creatable = False Attribute VB_Exposed = False Private Sub Command1_Click() Exec_Inversion End Sub Private Sub Form_Load() MaxX = Width - 400 MaxY = Height - 900 End Sub