VERSION 5.00 Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX" Begin VB.Form Form28 BorderStyle = 4 'Fixed ToolWindow Caption = "Spider Models" ClientHeight = 5775 ClientLeft = 45 ClientTop = 300 ClientWidth = 7665 LinkTopic = "Form28" MaxButton = 0 'False MDIChild = -1 'True MinButton = 0 'False ScaleHeight = 5775 ScaleWidth = 7665 ShowInTaskbar = 0 'False Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 276 Index = 29 Left = 6465 TabIndex = 98 Text = "Text1" Top = 2655 Visible = 0 'False Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 276 Index = 28 Left = 6465 TabIndex = 96 Text = "Text1" Top = 2415 Visible = 0 'False Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 276 Index = 27 Left = 6465 TabIndex = 94 Text = "Text1" Top = 2175 Visible = 0 'False Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 276 Index = 26 Left = 6465 TabIndex = 92 Text = "Text1" Top = 1935 Visible = 0 'False Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 276 Index = 25 Left = 6465 TabIndex = 90 Text = "Text1" Top = 1695 Visible = 0 'False Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 276 Index = 24 Left = 6465 TabIndex = 88 Text = "Text1" Top = 1455 Visible = 0 'False Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 276 Index = 23 Left = 6465 TabIndex = 86 Text = "Text1" Top = 1215 Visible = 0 'False Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 276 Index = 22 Left = 6465 TabIndex = 84 Text = "Text1" Top = 975 Visible = 0 'False Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 276 Index = 21 Left = 6465 TabIndex = 82 Text = "Text1" Top = 735 Visible = 0 'False Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 276 Index = 20 Left = 6465 TabIndex = 80 Text = "Text1" Top = 495 Visible = 0 'False Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 276 Index = 9 Left = 1425 TabIndex = 78 Text = "Text1" Top = 2670 Visible = 0 'False Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 276 Index = 8 Left = 1425 TabIndex = 76 Text = "Text1" Top = 2430 Visible = 0 'False Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 276 Index = 7 Left = 1425 TabIndex = 74 Text = "Text1" Top = 2190 Visible = 0 'False Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 276 Index = 6 Left = 1425 TabIndex = 72 Text = "Text1" Top = 1950 Visible = 0 'False Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 276 Index = 5 Left = 1425 TabIndex = 70 Text = "Text1" Top = 1710 Visible = 0 'False Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 276 Index = 4 Left = 1425 TabIndex = 68 Text = "Text1" Top = 1470 Visible = 0 'False Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 276 Index = 3 Left = 1425 TabIndex = 66 Text = "Text1" Top = 1230 Visible = 0 'False Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 276 Index = 2 Left = 1425 TabIndex = 64 Text = "Text1" Top = 990 Visible = 0 'False Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 276 Index = 1 Left = 1425 TabIndex = 62 Text = "Text1" Top = 750 Visible = 0 'False Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 276 Index = 0 Left = 1425 TabIndex = 60 Text = "Text1" Top = 525 Visible = 0 'False Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 276 Index = 19 Left = 3945 TabIndex = 58 Text = "Text1" Top = 2655 Visible = 0 'False Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 276 Index = 18 Left = 3945 TabIndex = 56 Text = "Text1" Top = 2415 Visible = 0 'False Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 276 Index = 17 Left = 3945 TabIndex = 54 Text = "Text1" Top = 2175 Visible = 0 'False Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 276 Index = 16 Left = 3945 TabIndex = 52 Text = "Text1" Top = 1935 Visible = 0 'False Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 276 Index = 15 Left = 3945 TabIndex = 50 Text = "Text1" Top = 1695 Visible = 0 'False Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 276 Index = 14 Left = 3945 TabIndex = 48 Text = "Text1" Top = 1455 Visible = 0 'False Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 276 Index = 13 Left = 3945 TabIndex = 46 Text = "Text1" Top = 1215 Visible = 0 'False Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 276 Index = 12 Left = 3945 TabIndex = 44 Text = "Text1" Top = 975 Visible = 0 'False Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 276 Index = 11 Left = 3945 TabIndex = 42 Text = "Text1" Top = 735 Visible = 0 'False Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 276 Index = 10 Left = 3945 TabIndex = 40 Text = "Text1" Top = 495 Visible = 0 'False Width = 735 End Begin VB.Frame frame7 Caption = "R=Ra/Rc" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 975 Left = 1920 TabIndex = 36 Top = 3960 Width = 1815 Begin VB.TextBox Text5 BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 285 Index = 1 Left = 864 TabIndex = 37 Text = "0" Top = 216 Width = 855 End Begin VB.Label Label12 Caption = "R value" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 120 TabIndex = 38 Top = 240 Width = 1332 End End Begin VB.Frame Frame2 Caption = "Parent C0" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 888 Left = 0 TabIndex = 33 Top = 3000 Width = 1812 Begin VB.CommandButton Command3 Caption = "Select C0 on graph" Height = 255 Left = 84 TabIndex = 35 Top = 576 Width = 1620 End Begin VB.ComboBox Combo1 Height = 315 Left = 120 TabIndex = 34 Text = "select" Top = 240 Width = 1632 End End Begin VB.Frame Frame6 Caption = "Assimilant CA" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 975 Left = 0 TabIndex = 30 Top = 3960 Width = 1812 Begin VB.CommandButton Command4 Caption = "Select CA on graph" Height = 255 Left = 108 TabIndex = 32 Top = 612 Width = 1632 End Begin VB.ComboBox Combo5 Height = 315 Left = 120 TabIndex = 31 Text = "select" Top = 252 Width = 1632 End End Begin VB.CommandButton Command1 Caption = "Ok (SpaceBar)" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 390 Left = 5760 TabIndex = 29 Top = 5280 Width = 1815 End Begin VB.CommandButton Command2 Caption = "Cancel" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 390 Left = 5760 TabIndex = 28 Top = 4800 Width = 1770 End Begin VB.Frame frame5 Caption = "Symbol (click to sel.)" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 1392 Left = 3840 TabIndex = 18 Top = 3120 Width = 1812 Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 5 Left = 1272 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 27 Top = 624 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 4 Left = 696 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 26 Top = 624 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 3 Left = 132 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 25 Top = 624 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 2 Left = 1272 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 24 Top = 252 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 1 Left = 696 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 23 Top = 252 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 0 Left = 132 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 22 Top = 252 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 6 Left = 132 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 21 Top = 996 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 7 Left = 696 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 20 Top = 996 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 8 Left = 1272 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 19 Top = 996 Width = 250 End Begin VB.Line Line1 X1 = 600 X2 = 600 Y1 = 228 Y2 = 1284 End Begin VB.Line Line4 X1 = 120 X2 = 1680 Y1 = 948 Y2 = 948 End Begin VB.Line Line3 X1 = 120 X2 = 1680 Y1 = 564 Y2 = 564 End Begin VB.Line Line2 X1 = 1200 X2 = 1200 Y1 = 225 Y2 = 1281 End End Begin VB.Frame Frame4 Caption = "Symbol" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 1620 Left = 5760 TabIndex = 9 Top = 3120 Width = 1812 Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 39 Left = 432 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 13 Top = 984 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 41 Left = 432 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 12 Top = 1284 Width = 250 End Begin VB.ComboBox Combo3 Height = 315 ItemData = "Form28.frx":0000 Left = 252 List = "Form28.frx":000D TabIndex = 11 Text = "Min" Top = 252 Width = 720 End Begin VB.ComboBox Combo4 Height = 315 ItemData = "Form28.frx":0020 Left = 240 List = "Form28.frx":002A TabIndex = 10 Text = "1" Top = 636 Width = 732 End Begin VB.Label Label7 Caption = "Color" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 960 TabIndex = 17 Top = 990 Width = 495 End Begin VB.Label Label8 Caption = "Symbol" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 840 TabIndex = 16 Top = 1290 Width = 600 End Begin VB.Label Label11 Caption = "Dim" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 1152 TabIndex = 15 Top = 276 Width = 492 End Begin VB.Label Label9 Caption = "Width" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 1080 TabIndex = 14 Top = 660 Width = 495 End End Begin VB.Frame Frame3 Caption = "Line" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 975 Left = 3840 TabIndex = 4 Top = 4560 Width = 1812 Begin VB.ComboBox Combo2 Height = 315 ItemData = "Form28.frx":0034 Left = 276 List = "Form28.frx":003E TabIndex = 6 Text = "1" Top = 240 Width = 735 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& ForeColor = &H80000008& Height = 250 Index = 21 Left = 465 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 5 Top = 600 Width = 250 End Begin VB.Label Label6 Alignment = 2 'Center Caption = "Color" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 960 TabIndex = 8 Top = 615 Width = 705 End Begin VB.Label Label5 Alignment = 2 'Center Caption = "Width" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 1020 TabIndex = 7 Top = 276 Width = 612 End End Begin VB.ComboBox Combo6 BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 360 ItemData = "Form28.frx":0048 Left = 1260 List = "Form28.frx":005B TabIndex = 3 Text = "Combo6" Top = 0 Width = 6015 End Begin VB.Frame Frame1 Caption = "F (melt fraction 0-1)" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 735 Left = 1920 TabIndex = 0 Top = 3120 Width = 1812 Begin VB.TextBox Text2 Height = 285 Index = 1 Left = 804 TabIndex = 1 Text = "0" Top = 240 Width = 855 End Begin VB.Label Label2 Caption = "F" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 240 TabIndex = 2 Top = 240 Width = 735 End End Begin MSComDlg.CommonDialog CMD1 Left = 1080 Top = 5280 _ExtentX = 847 _ExtentY = 847 _Version = 393216 End Begin VB.Label Label1 Caption = "D for xx" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 29 Left = 4920 TabIndex = 99 Top = 2640 Visible = 0 'False Width = 2295 End Begin VB.Label Label1 Caption = "D for xx" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 28 Left = 4920 TabIndex = 97 Top = 2400 Visible = 0 'False Width = 2295 End Begin VB.Label Label1 Caption = "D for xx" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 27 Left = 4920 TabIndex = 95 Top = 2160 Visible = 0 'False Width = 2295 End Begin VB.Label Label1 Caption = "D for xx" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 26 Left = 4920 TabIndex = 93 Top = 1920 Visible = 0 'False Width = 2295 End Begin VB.Label Label1 Caption = "D for xx" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 25 Left = 4920 TabIndex = 91 Top = 1680 Visible = 0 'False Width = 2295 End Begin VB.Label Label1 Caption = "D for xx" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 24 Left = 4920 TabIndex = 89 Top = 1440 Visible = 0 'False Width = 2295 End Begin VB.Label Label1 Caption = "D for xx" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 23 Left = 4920 TabIndex = 87 Top = 1200 Visible = 0 'False Width = 2295 End Begin VB.Label Label1 Caption = "D for xx" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 22 Left = 4920 TabIndex = 85 Top = 960 Visible = 0 'False Width = 2295 End Begin VB.Label Label1 Caption = "D for xx" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 21 Left = 4920 TabIndex = 83 Top = 720 Visible = 0 'False Width = 2295 End Begin VB.Label Label1 Caption = "D for xx" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 20 Left = 4920 TabIndex = 81 Top = 480 Visible = 0 'False Width = 2295 End Begin VB.Label Label1 Caption = "D for xx" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 9 Left = 60 TabIndex = 79 Top = 2655 Visible = 0 'False Width = 2295 End Begin VB.Label Label1 Caption = "D for xx" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 8 Left = 60 TabIndex = 77 Top = 2415 Visible = 0 'False Width = 2295 End Begin VB.Label Label1 Caption = "D for xx" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 7 Left = 60 TabIndex = 75 Top = 2175 Visible = 0 'False Width = 2295 End Begin VB.Label Label1 Caption = "D for xx" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 6 Left = 60 TabIndex = 73 Top = 1935 Visible = 0 'False Width = 2295 End Begin VB.Label Label1 Caption = "D for xx" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 5 Left = 60 TabIndex = 71 Top = 1695 Visible = 0 'False Width = 2295 End Begin VB.Label Label1 Caption = "D for xx" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 4 Left = 60 TabIndex = 69 Top = 1455 Visible = 0 'False Width = 2295 End Begin VB.Label Label1 Caption = "D for xx" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 3 Left = 60 TabIndex = 67 Top = 1215 Visible = 0 'False Width = 2295 End Begin VB.Label Label1 Caption = "D for xx" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 2 Left = 60 TabIndex = 65 Top = 975 Visible = 0 'False Width = 2295 End Begin VB.Label Label1 Caption = "D for xx" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 1 Left = 60 TabIndex = 63 Top = 735 Visible = 0 'False Width = 2295 End Begin VB.Label Label1 Caption = "D for xx" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 0 Left = 60 TabIndex = 61 Top = 495 Visible = 0 'False Width = 2295 End Begin VB.Label Label1 Caption = "D for xx" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 19 Left = 2400 TabIndex = 59 Top = 2640 Visible = 0 'False Width = 2295 End Begin VB.Label Label1 Caption = "D for xx" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 18 Left = 2400 TabIndex = 57 Top = 2400 Visible = 0 'False Width = 2295 End Begin VB.Label Label1 Caption = "D for xx" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 17 Left = 2400 TabIndex = 55 Top = 2160 Visible = 0 'False Width = 2295 End Begin VB.Label Label1 Caption = "D for xx" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 16 Left = 2400 TabIndex = 53 Top = 1920 Visible = 0 'False Width = 2295 End Begin VB.Label Label1 Caption = "D for xx" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 15 Left = 2400 TabIndex = 51 Top = 1680 Visible = 0 'False Width = 2295 End Begin VB.Label Label1 Caption = "D for xx" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 14 Left = 2400 TabIndex = 49 Top = 1440 Visible = 0 'False Width = 2295 End Begin VB.Label Label1 Caption = "D for xx" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 13 Left = 2400 TabIndex = 47 Top = 1200 Visible = 0 'False Width = 2295 End Begin VB.Label Label1 Caption = "D for xx" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 12 Left = 2400 TabIndex = 45 Top = 960 Visible = 0 'False Width = 2295 End Begin VB.Label Label1 Caption = "D for xx" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 11 Left = 2400 TabIndex = 43 Top = 720 Visible = 0 'False Width = 2295 End Begin VB.Label Label1 Caption = "D for xx" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Index = 10 Left = 2400 TabIndex = 41 Top = 480 Visible = 0 'False Width = 2295 End Begin VB.Label Label10 Alignment = 1 'Right Justify Caption = "MODEL:" BeginProperty Font Name = "Arial" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 375 Left = 135 TabIndex = 39 Top = 15 Width = 975 End End Attribute VB_Name = "Form28" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Combo1_KeyPress(KeyAscii As Integer) If KeyAscii = 32 Then Command1_Click End If End Sub Private Sub Combo2_KeyPress(KeyAscii As Integer) If KeyAscii = 32 Then Command1_Click End If End Sub Private Sub Combo3_KeyPress(KeyAscii As Integer) If KeyAscii = 32 Then Command1_Click End If End Sub Private Sub Combo4_KeyPress(KeyAscii As Integer) If KeyAscii = 32 Then Command1_Click End If End Sub Private Sub Combo5_KeyPress(KeyAscii As Integer) If KeyAscii = 32 Then Command1_Click End If End Sub Private Sub Combo6_Click() Combo1.Clear Combo5.Clear For i = 1 To Numcamp1 Combo1.AddItem NomeCamp(i) Combo5.AddItem NomeCamp(i) Next i 'For i = 0 To 29 'Form28.Label1(i).Visible = False 'Form28.Text1(i).Visible = False 'Next i Form28.Frame2.Visible = False Form28.Frame1.Visible = False Form28.Frame6.Visible = False Form28.frame7.Visible = False If Combo6.Text = "FC" Then Form28.Frame1.Visible = True Form28.Frame2.Visible = True Form28.Frame6.Visible = False Form28.frame7.Visible = False End If If Combo6.Text = "EC" Then Form28.Frame1.Visible = True Form28.Frame2.Visible = True Form28.Frame6.Visible = False Form28.frame7.Visible = False End If If Combo6.Text = "AFC" Then Form28.Frame1.Visible = True Form28.Frame2.Visible = True Form28.Frame6.Visible = True Form28.frame7.Visible = True End If If Combo6.Text = "Batch melting(mod. D0 or DR)" Then Form28.Frame1.Visible = True Form28.Frame2.Visible = True Form28.Frame6.Visible = False Form28.frame7.Visible = False End If If Combo6.Text = "Fract melting" Then Form28.Frame1.Visible = True Form28.Frame2.Visible = True Form28.Frame6.Visible = False Form28.frame7.Visible = False End If End Sub Private Sub Combo6_KeyPress(KeyAscii As Integer) If KeyAscii = 32 Then Command1_Click End If End Sub Private Sub Command1_Click() 'per entrambi i modelli ModelSymbCol = Picture1(39).BackColor ModelLineCol = Picture1(21).BackColor 'ModelSymbSp If Combo3.Text = "Min" Then ModelSymbSp = 2 End If If Combo3.Text = "Med" Then ModelSymbSp = 4 End If If Combo3.Text = "Max" Then ModelSymbSp = 6 End If ' ModelLineSp If Combo2.Text = "1" Then ModelLineSp = 1 LineSp(Indeks) = 1 End If If Combo2.Text = "2" Then ModelLineSp = 2 LineSp(Indeks) = 2 End If 'ModelSymbWid If Combo4.Text = "1" Then ModelSymbWid = 1 End If If Combo4.Text = "2" Then ModelSymbWid = 2 End If 'parametri iniziali (parent, assimilant, etc) Par = Combo1.Text Assim = Combo5.Text valF = Text2(1).Text valR = Text5(1).Text For i = 1 To 15 If REE1(i) = True Then ModD(i) = Val(Form28.Text1(i).Text) ModDRemember(i, Indeks) = Val(Form28.Text1(i - 1).Text) '? End If Next i 'solo REE '----------------------------------------------------- If SPIDERREE(Indeks) = True Then If Combo6.Text = "FC" Then model.SpiderFC Indeks, Par, valF, ModelLineSp, ModelLineCol, ModelSymb, ModelSymbSp, ModelSymbCol, ModelSymbWid End If End If '----------------------------------------------------- picforms(Indeks).Picture1.DrawWidth = 1 picforms(Indeks).Picture2.DrawWidth = 1 For i = 1 To 50 'Numcamp1 For ii = 1 To 15 Spiy(Indeks, ii, i) = 0 Next ii Next i file$ = App.Path + NormSP(Indeks) Close #1 Open App.Path + "\data\spiderREECamp" + Trim(Indeks) + ".txt" For Input As #1 tt = 2 For i = 1 To NumCampSpi(Indeks) Input #1, aaa$ REEcamp1(i) = aaa$ Next i Close #1 If NumCampSpi(Indeks) = 0 Then Exit Sub End If Open file$ For Input As #1 For i = 1 To 15 Input #1, aa If aa = 1 Then NormREE(i) = 0 'Label33(i - 1).Caption = "/" GoTo rr End If NormREE(i) = aa 'Label33(i - 1).Caption = Str(aa) rr: Next i Close #1 'On Error GoTo wewe picforms(Indeks).Hide picforms(Indeks).Picture2.Cls picforms(Indeks).Picture1.Cls ind = NumCampSpi(Indeks) SPIDERREE(Indeks) = True SPIDEROTHER(Indeks) = False binary(Indeks) = False Triangular(Indeks) = False DiagramType(Indeks) = "none" SPI.DeterminaREEPresenti If REE1(1) = False Or REE1(6) = False Or REE1(7) = False Or REE1(14) = False Then MsgBox "An Error Occurred: La, Sm, Eu, Yb have to be present in data table", , "Error" Exit Sub End If For i = 1 To 15 If REE1(i) = True Then Form8.Shape1(i - 1).FillColor = QBColor(2) REESelect(i - 1) = True End If If REE1(i) = False Then Form8.Shape1(i - 1).FillColor = QBColor(12) REESelect(i - 1) = False End If Next i 'MF1.REENewSpiderREEGraph App.Path + "\xx.emf", 500, 300 'determino massimo e minimo MaxREE1 = 0 MinREE1 = 1E+38 For i = 1 To ind 'cerco il campione aaa$ = REEcamp1(i) For ii = 1 To Numcamp1 If aaa$ = NomeCamp(ii) Then n11 = ii GoTo trt End If Next ii trt: CampioniSpi(Indeks, i) = n11 SPI.DeterminaValoriREE n11 For iii = 1 To 15 If valREEn(iii) <= 0 Then GoTo www End If If valREEn(iii) > MaxREE1 Then MaxREE1 = valREEn(iii) End If If valREEn(iii) < MinREE1 Then MinREE1 = valREEn(iii) End If www: Next iii Next i '------------------------------- 'max e min con spider 'attenzione finire If NumModSpi(Indeks) > 0 Then For i = 1 To NumModSpi(Indeks) Close #1 Open App.Path + "\data\SpiMod_" + Trim(i) + ".txt" For Input As #1 Input #1, numgraph, C0, F, ModelLineSp, ModelLineCol, ModelSymb, ModelSymbSp, ModelSymbCol, ModelSymbWid While Not EOF(1) Input #1, ss, valss For ii = 1 To 15 If ss = REE(ii) Then If valss <= 0 Or NormREE(ii) <= 0 Then GoTo poii If valss / NormREE(ii) > MaxREE1 Then MaxREE1 = valss / NormREE(ii) End If poii: If valss <= 0 Or NormREE(ii) <= 0 Then GoTo poii1 If valss / NormREE(ii) < MaxREE1 Then MminREE1 = valss / NormREE(ii) End If poii1: End If Next ii Wend Next i End If '------------------------------ 'plotto miny1 = Int(LOG10(MinREE1)) - 1 maxy1 = Int(LOG10(MaxREE1)) + 1 Inty(Indeks) = maxy1 - miny1 MinY(Indeks) = EXP10(miny1) MaxY(Indeks) = EXP10(maxy1) MinX(Indeks) = 1 MaxX(Indeks) = 15 DiagramType(Indeks) = "none" MF1.REENewSpiderREEGraph (App.Path + "\data\g10" + Trim(Str(Indeks))), Xgraph(Indeks), Ygraph(Indeks) MF1.REE_ASSI For i = 1 To ind 'cerco il campione aaa$ = REEcamp1(i) SpiPlotted(Indeks) = SpiPlotted(Indeks) + Chr$(124) + aaa$ For ii = 1 To Numcamp1 If aaa$ = NomeCamp(ii) Then n11 = ii GoTo qqqq End If Next ii qqqq: SPI.DeterminaValoriREE n11 BackGrnd.FG1.Row = n11 BackGrnd.FG1.col = 1 tipo = Val(BackGrnd.FG1) BackGrnd.FG1.Row = n11 BackGrnd.FG1.col = 3 tipo1 = Val(BackGrnd.FG1) BackGrnd.FG1.col = 2 col = BackGrnd.Picture1(BackGrnd.FG1 + 8).BackColor 'MF1.REE_InsertPoint SimbDim(Indeks), col, SPIlineCol, tipo MF1.REE_InsertPoint n11, SimbDim(Indeks), col, col, tipo '04-06-2002 Next i For i = 1 To NumModSpi(Indeks) MF1.REE_InsertPointMOD (i) Next i MF1.Finegraph '--------------------------------------------------- Form28.Hide End Sub Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Command1_KeyPress(KeyAscii As Integer) If KeyAscii = 32 Then Command1_Click End If End Sub Private Sub Command2_Click() Form28.Hide End Sub Private Sub Command2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Command2_KeyPress(KeyAscii As Integer) If KeyAscii = 32 Then Command1_Click End If End Sub Private Sub Command3_KeyPress(KeyAscii As Integer) If KeyAscii = 32 Then Command1_Click End If End Sub Private Sub Command4_KeyPress(KeyAscii As Integer) If KeyAscii = 32 Then Command1_Click End If End Sub Private Sub Picture1_Click(Index As Integer) If Index = 39 Then CMD1.ShowColor ModelSymbCol = CMD1.Color Form28.Picture1(39).BackColor = CMD1.Color End If If Index = 21 Then CMD1.ShowColor ModelLineCol = CMD1.Color Form28.Picture1(21).BackColor = CMD1.Color End If 'picture(0) If Index = 0 Then Form28.Picture1(41).Cls Form28.Picture1(41).FillColor = QBColor(0) Form28.Picture1(41).FillStyle = 0 Form28.Picture1(41).Line (5 - 2, 5 - 2)-(5 + 2, 5 + 2), QBColor(0), B ModelSymb = Index + 1 End If 'picture(1) If Index = 1 Then Form28.Picture1(41).Cls Form28.Picture1(41).FillColor = QBColor(0) Form28.Picture1(41).FillStyle = 1 Form28.Picture1(41).Line (5 - 2, 5 - 2)-(5 + 2, 5 + 2), QBColor(0), B ModelSymb = Index + 1 End If 'picture(2) If Index = 2 Then Form28.Picture1(41).Cls Form28.Picture1(41).FillColor = QBColor(0) Form28.Picture1(41).FillStyle = 0 Form28.Picture1(41).Circle (5, 5), 2, QBColor(0) ModelSymb = Index + 1 End If 'picture(3) If Index = 3 Then Form28.Picture1(41).Cls Form28.Picture1(41).FillColor = QBColor(0) Form28.Picture1(41).FillStyle = 1 Form28.Picture1(41).Circle (5, 5), 2, QBColor(0) ModelSymb = Index + 1 End If 'picture(4) If Index = 4 Then Form28.Picture1(41).Cls Form28.Picture1(41).FillStyle = 1 Form28.Picture1(41).Line (5 - 2, 5 - 2)-(5, 5 + 2), QBColor(0) Form28.Picture1(41).Line (5 - 2, 5 - 2)-(5 + 2, 5 - 2), QBColor(0) Form28.Picture1(41).Line (5 + 2, 5 - 2)-(5, 5 + 2), QBColor(0) ModelSymb = Index + 1 End If 'picture(5) If Index = 5 Then Form28.Picture1(41).Cls Form28.Picture1(41).FillStyle = 1 Form28.Picture1(41).Line (5 - 2, 5 + 2)-(5, 5 - 2), QBColor(0) Form28.Picture1(41).Line (5 - 2, 5 + 2)-(5 + 2, 5 + 2), QBColor(0) Form28.Picture1(41).Line (5 + 2, 5 + 2)-(5, 5 - 2), QBColor(0) ModelSymb = Index + 1 End If 'picture(6) If Index = 6 Then Form28.Picture1(41).Cls Form28.Picture1(41).FillStyle = 1 Form28.Picture1(41).Line (5 - 2, 5)-(5 + 2, 5), QBColor(0) Form28.Picture1(41).Line (5, 5 - 2)-(5, 5 + 2), QBColor(0) Form28.Picture1(41).Line (5 - 2, 5 - 2)-(5 + 2, 5 + 2), QBColor(0) Form28.Picture1(41).Line (5 + 2, 5 - 2)-(5 - 2, 5 + 2), QBColor(0) ModelSymb = Index + 1 End If 'picture(7) If Index = 7 Then Form28.Picture1(41).Cls Form28.Picture1(41).FillStyle = 1 Form28.Picture1(41).Line (5 - 2, 5)-(5 + 2, 5), QBColor(0) Form28.Picture1(41).Line (5, 5 - 2)-(5, 5 + 2), QBColor(0) ModelSymb = Index + 1 End If 'picture(8) If Index = 8 Then Form28.Picture1(41).Cls Form28.Picture1(41).FillStyle = 1 Form28.Picture1(41).Line (5 - 2, 5)-(5, 5 + 4), QBColor(0) Form28.Picture1(41).Line (5, 5 + 4)-(5 + 2, 5), QBColor(0) Form28.Picture1(41).Line (5 + 2, 5)-(5, 5 - 4), QBColor(0) Form28.Picture1(41).Line (5, 5 - 4)-(5 - 2, 5), QBColor(0) ModelSymb = Index + 1 End If End Sub Private Sub Picture1_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 32 Then Command1_Click End If End Sub Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 32 Then Command1_Click End If End Sub Private Sub Text2_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 32 Then Command1_Click End If End Sub Private Sub Text5_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 32 Then Command1_Click End If End Sub