VERSION 5.00 Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX" Begin VB.Form Form12 BorderStyle = 4 'Fixed ToolWindow Caption = "Models" ClientHeight = 6165 ClientLeft = 45 ClientTop = 285 ClientWidth = 6540 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty LinkTopic = "Form12" MaxButton = 0 'False MDIChild = -1 'True MinButton = 0 'False ScaleHeight = 6165 ScaleWidth = 6540 ShowInTaskbar = 0 'False Begin VB.Frame Frame12 Caption = "Melting Parameters" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 600 Left = 2505 TabIndex = 79 Top = 3360 Visible = 0 'False Width = 1812 Begin VB.CommandButton Command7 Caption = "configure" Height = 255 Left = 144 TabIndex = 80 Top = 240 Width = 1608 End 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 = 1230 Left = 2520 TabIndex = 21 Top = 600 Width = 1812 Begin VB.TextBox Text4 Height = 285 Index = 1 Left = 804 TabIndex = 27 Text = "0.1" Top = 852 Width = 855 End Begin VB.TextBox Text3 Height = 285 Index = 1 Left = 795 TabIndex = 25 Text = "1" Top = 525 Width = 855 End Begin VB.TextBox Text2 Height = 285 Index = 1 Left = 804 TabIndex = 23 Text = "0.1" Top = 216 Width = 855 End Begin VB.Label Label4 Caption = "Step" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 240 TabIndex = 26 Top = 876 Width = 732 End Begin VB.Label Label3 Caption = "To" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 252 TabIndex = 24 Top = 552 Width = 732 End Begin VB.Label Label2 Caption = "From" 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 = 22 Top = 240 Width = 735 End End Begin VB.OptionButton Option2 Caption = "Only in this picture" BeginProperty Font Name = "Arial Narrow" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 60 TabIndex = 88 Top = 3960 Visible = 0 'False Width = 1812 End Begin VB.OptionButton Option1 Caption = "Change D (R) in all picture" BeginProperty Font Name = "Arial Narrow" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 60 TabIndex = 87 Top = 3720 Value = -1 'True Visible = 0 'False Width = 1932 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 = "Form12.frx":0000 Left = 1320 List = "Form12.frx":001C TabIndex = 59 Text = "Combo6" Top = 120 Width = 4935 End Begin MSComDlg.CommonDialog CMD1 Left = 4800 Top = 720 _ExtentX = 847 _ExtentY = 847 _Version = 393216 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 = 4440 TabIndex = 46 Top = 3840 Width = 1812 Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 250 Index = 21 Left = 465 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 48 Top = 600 Width = 250 End Begin VB.ComboBox Combo2 BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 ItemData = "Form12.frx":008E Left = 276 List = "Form12.frx":0098 TabIndex = 47 Text = "1" Top = 240 Width = 735 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 = 50 Top = 276 Width = 612 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 = 49 Top = 615 Width = 705 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 = 4425 TabIndex = 41 Top = 2160 Width = 1812 Begin VB.ComboBox Combo4 BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 ItemData = "Form12.frx":00A2 Left = 240 List = "Form12.frx":00AC TabIndex = 53 Text = "1" Top = 636 Width = 732 End Begin VB.ComboBox Combo3 BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 ItemData = "Form12.frx":00B6 Left = 252 List = "Form12.frx":00C3 TabIndex = 51 Text = "Min" Top = 252 Width = 720 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 250 Index = 41 Left = 432 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 43 Top = 1284 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 250 Index = 39 Left = 432 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 42 Top = 984 Width = 250 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 = 54 Top = 660 Width = 495 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 = 52 Top = 276 Width = 492 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 = 252 Left = 852 TabIndex = 45 Top = 1296 Width = 600 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 = 44 Top = 990 Width = 495 End 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 = 4440 TabIndex = 28 Top = 600 Width = 1812 Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 250 Index = 8 Left = 1272 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 83 Top = 996 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 250 Index = 7 Left = 696 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 82 Top = 996 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 250 Index = 6 Left = 132 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 81 Top = 996 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 250 Index = 0 Left = 132 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 34 Top = 252 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 250 Index = 1 Left = 696 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 33 Top = 252 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 250 Index = 2 Left = 1272 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 32 Top = 252 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 250 Index = 3 Left = 132 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 31 Top = 624 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 250 Index = 4 Left = 696 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 30 Top = 624 Width = 250 End Begin VB.PictureBox Picture1 Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H80000005& BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 250 Index = 5 Left = 1272 ScaleHeight = 15 ScaleMode = 3 'Pixel ScaleWidth = 15 TabIndex = 29 Top = 624 Width = 250 End Begin VB.Line Line2 X1 = 1200 X2 = 1200 Y1 = 225 Y2 = 1281 End Begin VB.Line Line1 X1 = 600 X2 = 600 Y1 = 228 Y2 = 1284 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "9" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 10 Left = 1584 TabIndex = 86 Top = 996 Width = 132 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "8" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 11 Left = 948 TabIndex = 85 Top = 996 Width = 252 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "7" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 12 Left = 384 TabIndex = 84 Top = 996 Width = 252 End Begin VB.Line Line3 X1 = 120 X2 = 1680 Y1 = 564 Y2 = 564 End Begin VB.Line Line4 X1 = 120 X2 = 1680 Y1 = 948 Y2 = 948 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "1" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 18 Left = 402 TabIndex = 40 Top = 252 Width = 216 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "4" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 17 Left = 444 TabIndex = 39 Top = 624 Width = 132 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "2" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 16 Left = 948 TabIndex = 38 Top = 252 Width = 252 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "5" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 15 Left = 948 TabIndex = 37 Top = 624 Width = 252 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "3" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 14 Left = 1524 TabIndex = 36 Top = 252 Width = 252 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "6" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Index = 13 Left = 1524 TabIndex = 35 Top = 624 Width = 252 End 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 = 510 Left = 4440 TabIndex = 20 Top = 4920 Width = 1815 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 = 495 Left = 4440 TabIndex = 1 Top = 5520 Width = 1815 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 = 288 Index = 9 Left = 1590 TabIndex = 19 Text = "Text1" Top = 3390 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 = 288 Index = 8 Left = 1590 TabIndex = 17 Text = "Text1" Top = 3105 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 = 288 Index = 7 Left = 1590 TabIndex = 15 Text = "Text1" Top = 2790 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 = 288 Index = 6 Left = 1590 TabIndex = 13 Text = "Text1" Top = 2475 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 = 288 Index = 5 Left = 1590 TabIndex = 11 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 = 288 Index = 4 Left = 1590 TabIndex = 9 Text = "Text1" Top = 1860 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 = 288 Index = 3 Left = 1590 TabIndex = 7 Text = "Text1" Top = 1530 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 = 288 Index = 2 Left = 1590 TabIndex = 5 Text = "Text1" Top = 1260 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 = 288 Index = 1 Left = 1590 TabIndex = 3 Text = "Text1" Top = 960 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 = 1590 TabIndex = 0 Text = "Text1" Top = 675 Visible = 0 'False Width = 735 End Begin VB.Frame Frame18 Caption = "x" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 840 Left = 2520 TabIndex = 111 Top = 1560 Width = 1812 Begin VB.TextBox Text2 Height = 285 Index = 0 Left = 804 TabIndex = 113 Text = "0" Top = 180 Width = 855 End Begin VB.TextBox Text3 Height = 285 Index = 0 Left = 816 TabIndex = 112 Text = "1" Top = 504 Width = 855 End Begin VB.Label Label26 Caption = "From" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 240 TabIndex = 115 Top = 204 Width = 732 End Begin VB.Label Label25 Caption = "To" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 210 TabIndex = 114 Top = 540 Width = 735 End End Begin VB.Frame Frame24 Caption = "x" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 588 Left = 2520 TabIndex = 137 Top = 1800 Width = 1812 Begin VB.TextBox Text2 Height = 285 Index = 5 Left = 960 TabIndex = 138 Text = "0" Top = 240 Width = 600 End Begin VB.Label Label27 Caption = "value" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 240 TabIndex = 153 Top = 240 Width = 1332 End End Begin VB.Frame Frame25 Caption = "w" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 588 Left = 2520 TabIndex = 139 Top = 1800 Width = 1812 Begin VB.TextBox Text2 Height = 285 Index = 6 Left = 960 TabIndex = 140 Text = "0" Top = 240 Width = 600 End Begin VB.Label Label34 Caption = "value" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 240 TabIndex = 154 Top = 240 Width = 1332 End End Begin VB.Frame Frame11 Caption = "X (from 0 to 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 = 672 Left = 2520 TabIndex = 76 Top = 600 Width = 1812 Begin VB.TextBox Text11 BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Left = 636 TabIndex = 77 Text = "0.1" Top = 300 Width = 855 End Begin VB.Label Label18 Caption = "Step" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 144 TabIndex = 78 Top = 300 Width = 732 End End Begin VB.Frame Frame8 Caption = "n" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 1308 Left = 2520 TabIndex = 63 Top = 600 Width = 1812 Begin VB.TextBox Text8 Height = 285 Left = 780 TabIndex = 66 Text = "0" Top = 228 Width = 855 End Begin VB.TextBox Text7 Height = 285 Index = 1 Left = 780 TabIndex = 65 Text = "5" Top = 588 Width = 855 End Begin VB.TextBox Text6 Height = 285 Index = 1 Left = 780 TabIndex = 64 Text = "0.1" Top = 948 Width = 855 End Begin VB.Label Label15 Caption = "From" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 180 TabIndex = 69 Top = 240 Width = 732 End Begin VB.Label Label14 Caption = "To" 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 = 68 Top = 600 Width = 735 End Begin VB.Label Label13 Caption = "Step" 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 = 67 Top = 960 Width = 735 End End Begin VB.Frame Frame19 Caption = "y" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 588 Left = 2520 TabIndex = 117 Top = 600 Width = 1812 Begin VB.TextBox Text2 Height = 285 Index = 2 Left = 960 TabIndex = 118 Text = "0" Top = 240 Width = 600 End Begin VB.Label Label24 Caption = "value" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 240 TabIndex = 152 Top = 240 Width = 1332 End End Begin VB.Frame Frame15 Caption = "ML/M0" BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 1332 Left = 2520 TabIndex = 95 Top = 600 Width = 1812 Begin VB.TextBox Text6 Height = 285 Index = 0 Left = 780 TabIndex = 98 Text = "0.1" Top = 948 Width = 855 End Begin VB.TextBox Text7 Height = 285 Index = 0 Left = 780 TabIndex = 97 Text = "1" Top = 600 Width = 855 End Begin VB.TextBox Text9 Height = 285 Left = 780 TabIndex = 96 Text = "0" Top = 240 Width = 855 End Begin VB.Label Label21 Caption = "Step" 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 = 101 Top = 960 Width = 735 End Begin VB.Label Label20 Caption = "To" 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 = 100 Top = 600 Width = 735 End Begin VB.Label Label19 Caption = "From" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 180 TabIndex = 99 Top = 240 Width = 732 End End Begin VB.Frame Frame20 Caption = "n° cycles" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 936 Left = 120 TabIndex = 119 Top = 5040 Width = 1812 Begin VB.TextBox Text2 Height = 285 Index = 4 Left = 900 TabIndex = 122 Text = "0" Top = 576 Width = 765 End Begin VB.TextBox Text2 Height = 285 Index = 3 Left = 900 TabIndex = 120 Text = "0" Top = 216 Width = 765 End Begin VB.Label Label29 Caption = "step" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 192 TabIndex = 123 Top = 600 Width = 732 End Begin VB.Label Label28 Caption = "cycles" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 120 TabIndex = 121 Top = 240 Width = 735 End End Begin VB.Frame Frame29 Caption = "Cz" 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 = 2520 TabIndex = 149 Top = 5160 Width = 1812 Begin VB.CommandButton Command10 Caption = "Select Cz on graph" Height = 255 Left = 120 TabIndex = 151 Top = 600 Width = 1620 End Begin VB.ComboBox Combo11 Height = 315 Left = 78 TabIndex = 150 Text = "select" Top = 240 Width = 1632 End End Begin VB.Frame Frame9 Caption = "C2 (End member 2)" 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 = 2520 TabIndex = 70 Top = 3360 Width = 1812 Begin VB.CommandButton Command5 Caption = "Select C2 on graph" Height = 255 Left = 84 TabIndex = 72 Top = 600 Width = 1656 End Begin VB.ComboBox Combo7 Height = 315 Left = 84 TabIndex = 71 Text = "select" Top = 240 Width = 1644 End End Begin VB.Frame Frame16 Caption = "f" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 588 Left = 2505 TabIndex = 102 Top = 3480 Width = 1812 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 = 3 Left = 864 TabIndex = 103 Text = "nd" Top = 216 Width = 855 End Begin VB.Label Label22 Caption = "f value" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 96 TabIndex = 104 Top = 240 Width = 1332 End End Begin VB.Frame Frame14 Caption = "Mass porosity" 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 = 2505 TabIndex = 92 Top = 3480 Width = 1812 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 = 2 Left = 864 TabIndex = 93 Text = "0" Top = 216 Width = 855 End Begin VB.Label Label17 Caption = "MP val." BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 96 TabIndex = 94 Top = 240 Width = 1332 End End Begin VB.Frame Frame13 Caption = "Y" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 576 Left = 2520 TabIndex = 89 Top = 3360 Width = 1812 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 = 0 Left = 864 TabIndex = 90 Text = "0" Top = 216 Width = 855 End Begin VB.Label Label16 Caption = "Y value" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 96 TabIndex = 91 Top = 240 Width = 1332 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 = 2520 TabIndex = 55 Top = 5040 Width = 1812 Begin VB.ComboBox Combo5 Height = 315 Left = 108 TabIndex = 57 Text = "select" Top = 252 Width = 1632 End Begin VB.CommandButton Command4 Caption = "Select CA on graph" Height = 255 Left = 108 TabIndex = 56 Top = 612 Width = 1632 End End Begin VB.Frame Frame27 Caption = "M0" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 588 Left = 2520 TabIndex = 143 Top = 3360 Width = 1812 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 = 9 Left = 864 TabIndex = 144 Text = "1" Top = 216 Width = 855 End Begin VB.Label Label40 Caption = "value" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 120 TabIndex = 145 Top = 240 Width = 1332 End End Begin VB.Frame Frame21 Caption = "R" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 588 Left = 2520 TabIndex = 124 Top = 3360 Width = 1812 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 = 5 Left = 930 TabIndex = 125 Text = "0" Top = 216 Width = 765 End Begin VB.Label Label30 Caption = "R value" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 90 TabIndex = 126 Top = 240 Width = 1335 End End Begin VB.Frame Frame22 Caption = "Cr" 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 = 2520 TabIndex = 127 Top = 4200 Width = 1812 Begin VB.CommandButton Command8 Caption = "Select Cr on graph" Height = 255 Left = 120 TabIndex = 129 Top = 600 Width = 1620 End Begin VB.ComboBox Combo9 Height = 315 Left = 78 TabIndex = 128 Text = "select" Top = 240 Width = 1632 End End Begin VB.Frame Frame17 Caption = "Fa" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 588 Left = 2505 TabIndex = 105 Top = 4050 Width = 1812 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 = 4 Left = 840 TabIndex = 106 Text = "nd" Top = 216 Width = 855 End Begin VB.Label Label23 Caption = "Fa value" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 60 TabIndex = 107 Top = 228 Width = 1332 End End Begin VB.Frame Frame28 Caption = "Cw" 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 = 2520 TabIndex = 146 Top = 4110 Width = 1812 Begin VB.ComboBox Combo10 Height = 315 Left = 78 TabIndex = 148 Text = "select" Top = 240 Width = 1632 End Begin VB.CommandButton Command9 Caption = "Select Cw on graph" Height = 255 Left = 120 TabIndex = 147 Top = 600 Width = 1620 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 = 2520 TabIndex = 108 Top = 2355 Width = 1812 Begin VB.ComboBox Combo1 Height = 315 Left = 78 TabIndex = 110 Text = "select" Top = 240 Width = 1632 End Begin VB.CommandButton Command3 Caption = "Select C0 on graph" Height = 255 Left = 84 TabIndex = 109 Top = 576 Width = 1620 End 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 = 588 Left = 2520 TabIndex = 58 Top = 4320 Width = 1812 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 = 61 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 = 62 Top = 240 Width = 1332 End End Begin VB.Frame Frame23 Caption = "a=Ra,r=Rr,c=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 = 588 Left = 2520 TabIndex = 130 Top = 2400 Width = 1812 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 = 8 Left = 1320 TabIndex = 135 Text = "0" Top = 224 Width = 400 End 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 = 7 Left = 768 TabIndex = 133 Text = "0" Top = 224 Width = 400 End 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 = 6 Left = 156 TabIndex = 131 Text = "0" Top = 224 Width = 400 End Begin VB.Label Label33 Caption = "c" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 1212 TabIndex = 136 Top = 240 Width = 336 End Begin VB.Label Label32 Caption = "r" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 636 TabIndex = 134 Top = 240 Width = 336 End Begin VB.Label Label31 Caption = "a" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 36 TabIndex = 132 Top = 240 Width = 336 End End Begin VB.Frame Frame10 Caption = "C1 (End member 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 = 975 Left = 2520 TabIndex = 73 Top = 2400 Width = 1812 Begin VB.ComboBox Combo8 Height = 315 Left = 108 TabIndex = 75 Text = "select" Top = 240 Width = 1644 End Begin VB.CommandButton Command6 Caption = "Select C1 on graph" Height = 255 Left = 120 TabIndex = 74 Top = 600 Width = 1632 End End Begin VB.Frame Frame26 Caption = "z" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 588 Left = 2520 TabIndex = 141 Top = 2400 Width = 1812 Begin VB.TextBox Text2 Height = 285 Index = 7 Left = 960 TabIndex = 142 Text = "0" Top = 240 Width = 600 End Begin VB.Label Label35 Caption = "value" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 240 TabIndex = 155 Top = 240 Width = 1332 End 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 = 116 Top = 675 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 = 195 TabIndex = 60 Top = 135 Width = 975 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 = 75 TabIndex = 18 Top = 3420 Visible = 0 'False Width = 2175 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 = 75 TabIndex = 16 Top = 3120 Visible = 0 'False Width = 2175 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 = 75 TabIndex = 14 Top = 2805 Visible = 0 'False Width = 2175 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 = 75 TabIndex = 12 Top = 2490 Visible = 0 'False Width = 2175 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 = 75 TabIndex = 10 Top = 2190 Visible = 0 'False Width = 2175 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 = 75 TabIndex = 8 Top = 1890 Visible = 0 'False Width = 2175 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 = 75 TabIndex = 6 Top = 1545 Visible = 0 'False Width = 2175 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 = 75 TabIndex = 4 Top = 1275 Visible = 0 'False Width = 2175 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 = 75 TabIndex = 2 Top = 990 Visible = 0 'False Width = 2295 End End Attribute VB_Name = "Form12" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Combo10_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Combo11_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Combo2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Combo3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Combo4_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Combo5_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Combo6_Click() Combo1.Clear Combo5.Clear Combo7.Clear Combo8.Clear For i = 1 To Numcamp1 Combo1.AddItem NomeCamp(i) Combo5.AddItem NomeCamp(i) Combo7.AddItem NomeCamp(i) Combo8.AddItem NomeCamp(i) Next i If Combo6.Text <> "mixing (Elem Vs Elem)" And Combo6.Text <> "Batch melting(non-modal)" Then For i = 1 To NumModelElem Form12.Label1(i - 1).Caption = "D for " + ModElementi(i) Form12.Text1(i - 1).Text = ModDRemember(i, Indeks) If ModDRemember(i, Indeks) = 0 Then Form12.Text1(i - 1).Text = "nd" End If Form12.Label1(i - 1).Visible = True Form12.Text1(i - 1).Visible = True Next i End If If Combo6.Text = "mixing (Elem Vs Elem)" Or Combo6.Text = "Batch melting(non-modal)" Then For i = 1 To NumModelElem Form12.Label1(i - 1).Caption = "D for " + ModElementi(i) Form12.Label1(i - 1).Visible = False 'Form12.Text1(i - 1).Text = "insert" Form12.Text1(i - 1).Visible = False Next i End If If Combo6.Text = "In Situ C" Then If CambiaMod = False Then Option1.Visible = False Option2.Visible = False Else Option1.Visible = False Option2.Visible = False End If Frame1.Visible = False Frame2.Visible = True Frame6.Visible = False frame7.Visible = False Frame8.Visible = False Frame9.Visible = False Frame10.Visible = False Frame11.Visible = False Frame12.Visible = False Frame13.Visible = False Frame14.Visible = False Form12.Frame15.Visible = True Form12.Frame16.Visible = True Form12.Frame17.Visible = False Form12.Frame18.Visible = False Form12.Frame19.Visible = False Form12.Frame20.Visible = False Form12.Frame21.Visible = False Form12.Frame23.Visible = False Form12.Frame22.Visible = False Form12.Frame19.Visible = False Form12.Frame24.Visible = False Form12.Frame25.Visible = False Form12.Frame26.Visible = False Form12.Frame27.Visible = False Form12.Frame28.Visible = False Form12.Frame29.Visible = False Form12.Frame20.Visible = False Form12.Text3(1) = 1 Combo1.Text = "Select" For i = 1 To Numcamp1 If NomeCamp(i) = "c0" Or NomeCamp(i) = "C0" Or NomeCamp(i) = "cO" Or NomeCamp(i) = "CO" Or NomeCamp(i) = "Co" Or NomeCamp(i) = "co" Then Combo1.Text = NomeCamp(i) GoTo xx: End If Next i Form12.Combo1.Text = C0M(Indeks) xx: End If If Combo6.Text = "FC" Then If CambiaMod = False Then Option1.Visible = False Option2.Visible = False Else Option1.Visible = False Option2.Visible = False End If Frame1.Visible = True Frame2.Visible = True Frame6.Visible = False frame7.Visible = False Frame8.Visible = False Frame9.Visible = False Frame10.Visible = False Frame11.Visible = False Frame12.Visible = False Frame13.Visible = False Frame14.Visible = False Form12.Frame15.Visible = False Form12.Frame16.Visible = False Form12.Frame17.Visible = False Form12.Frame18.Visible = False Form12.Frame19.Visible = False Form12.Frame20.Visible = False Form12.Frame21.Visible = False Form12.Frame23.Visible = False Form12.Frame22.Visible = False Form12.Frame19.Visible = False Form12.Frame24.Visible = False Form12.Frame25.Visible = False Form12.Frame26.Visible = False Form12.Frame27.Visible = False Form12.Frame28.Visible = False Form12.Frame29.Visible = False Form12.Frame20.Visible = False Form12.Text3(1) = 1 Combo1.Text = "Select" For i = 1 To Numcamp1 If NomeCamp(i) = "c0" Or NomeCamp(i) = "C0" Or NomeCamp(i) = "cO" Or NomeCamp(i) = "CO" Or NomeCamp(i) = "Co" Or NomeCamp(i) = "co" Then Combo1.Text = NomeCamp(i) GoTo xx212: End If Next i Form12.Combo1.Text = C0M(Indeks) xx212: End If If Combo6.Text = "RFT(A)" Then If CambiaMod = False Then Option1.Visible = False Option2.Visible = False Else Option1.Visible = False Option2.Visible = False End If Frame1.Visible = False Frame2.Visible = False Frame6.Visible = False frame7.Visible = False Frame8.Visible = False Frame9.Visible = False Frame10.Visible = False Frame11.Visible = False Frame12.Visible = False Frame13.Visible = False Frame14.Visible = False Form12.Frame15.Visible = False Form12.Frame16.Visible = False Form12.Frame17.Visible = False Form12.Frame18.Visible = False Form12.Frame19.Visible = False Form12.Frame20.Visible = False Form12.Frame21.Visible = False Form12.Frame23.Visible = False Form12.Frame22.Visible = False Form12.Frame19.Visible = True Form12.Frame24.Visible = True Form12.Frame25.Visible = True Form12.Frame26.Visible = True Form12.Frame27.Visible = True Form12.Frame28.Visible = True Form12.Frame29.Visible = True Form12.Frame20.Visible = True Combo1.Text = "Select" For i = 1 To Numcamp1 If NomeCamp(i) = "c0" Or NomeCamp(i) = "C0" Or NomeCamp(i) = "cO" Or NomeCamp(i) = "CO" Or NomeCamp(i) = "Co" Or NomeCamp(i) = "co" Then Combo1.Text = NomeCamp(i) GoTo xx111: End If Next i Form12.Combo1.Text = C0M(Indeks) xx111: End If If Combo6.Text = "Batch melting(mod. D0 or DR)" Then If CambiaMod = False Then Option1.Visible = False Option2.Visible = False Else Option1.Visible = False Option2.Visible = False End If Frame1.Visible = True Frame2.Visible = True Frame6.Visible = False frame7.Visible = False Frame8.Visible = False Frame9.Visible = False Frame10.Visible = False Frame11.Visible = False Frame12.Visible = False Frame14.Visible = False Form12.Frame15.Visible = False Form12.Frame16.Visible = False Form12.Frame17.Visible = False Form12.Frame18.Visible = False Form12.Frame19.Visible = False Form12.Frame20.Visible = False Form12.Frame21.Visible = False Form12.Frame23.Visible = False Form12.Frame22.Visible = False Form12.Frame19.Visible = False Form12.Frame24.Visible = False Form12.Frame25.Visible = False Form12.Frame26.Visible = False Form12.Frame27.Visible = False Form12.Frame28.Visible = False Form12.Frame29.Visible = False Form12.Frame20.Visible = False Form12.Text3(1) = 0.9 Combo1.Text = "Select" For i = 1 To Numcamp1 If NomeCamp(i) = "source" Or NomeCamp(i) = "Source" Or NomeCamp(i) = "SOURCE" Then Combo1.Text = NomeCamp(i) GoTo xx1 End If Next i Form12.Combo1.Text = C0M(Indeks) xx1: End If '?????????????????????????????????????? If Combo6.Text = "Batch melting(non-modal)" Then Option1.Visible = False Option2.Visible = False Frame1.Visible = True Frame2.Visible = True Frame6.Visible = False frame7.Visible = False Frame8.Visible = False Frame9.Visible = False Frame10.Visible = False Frame11.Visible = False Frame12.Visible = True Frame13.Visible = False Frame14.Visible = False Form12.Frame15.Visible = False Form12.Frame16.Visible = False Form12.Frame17.Visible = False Form12.Frame18.Visible = False Form12.Frame19.Visible = False Form12.Frame20.Visible = False Form12.Frame21.Visible = False Form12.Frame23.Visible = False Form12.Frame22.Visible = False Form12.Frame19.Visible = False Form12.Frame24.Visible = False Form12.Frame25.Visible = False Form12.Frame26.Visible = False Form12.Frame27.Visible = False Form12.Frame28.Visible = False Form12.Frame29.Visible = False Form12.Frame20.Visible = False Combo1.Text = "Select" For i = 1 To Numcamp1 If NomeCamp(i) = "source" Or NomeCamp(i) = "Source" Or NomeCamp(i) = "SOURCE" Then Combo1.Text = NomeCamp(i) GoTo xx2 End If Next i Form12.Combo1.Text = C0M(Indeks) xx2: End If '?????????????????????????????????????? If Combo6.Text = "Fract melting" Then If CambiaMod = False Then Option1.Visible = False Option2.Visible = False Else Option1.Visible = False Option2.Visible = False End If Frame1.Visible = True Frame2.Visible = True Frame6.Visible = False frame7.Visible = False Frame8.Visible = False Frame9.Visible = False Frame10.Visible = False Frame11.Visible = False Frame12.Visible = False Frame13.Visible = False Frame14.Visible = False Form12.Frame15.Visible = False Form12.Frame16.Visible = False Form12.Frame17.Visible = False Form12.Frame18.Visible = False Form12.Frame19.Visible = False Form12.Frame20.Visible = False Form12.Frame21.Visible = False Form12.Frame23.Visible = False Form12.Frame22.Visible = False Form12.Frame19.Visible = False Form12.Frame24.Visible = False Form12.Frame25.Visible = False Form12.Frame26.Visible = False Form12.Frame27.Visible = False Form12.Frame28.Visible = False Form12.Frame29.Visible = False Form12.Frame20.Visible = False Form12.Text3(1) = 0.9 Combo1.Text = "Select" For i = 1 To Numcamp1 If NomeCamp(i) = "source" Or NomeCamp(i) = "Source" Or NomeCamp(i) = "SOURCE" Then Combo1.Text = NomeCamp(i) AXX(Indeks) = i GoTo xx3 End If Next i Form12.Combo1.Text = C0M(Indeks) xx3: End If If Combo6.Text = "Cont melting" Then If CambiaMod = False Then Option1.Visible = False Option2.Visible = False Else Option1.Visible = False Option2.Visible = False End If Frame1.Visible = True Frame2.Visible = True Frame6.Visible = False frame7.Visible = False Frame8.Visible = False Frame9.Visible = False Frame10.Visible = False Frame11.Visible = False Frame12.Visible = False Frame13.Visible = False Frame14.Visible = True Form12.Frame15.Visible = False Form12.Frame16.Visible = False Form12.Frame17.Visible = False Form12.Frame18.Visible = False Form12.Frame19.Visible = False Form12.Frame20.Visible = False Form12.Frame21.Visible = False Form12.Frame23.Visible = False Form12.Frame22.Visible = False Form12.Frame19.Visible = False Form12.Frame24.Visible = False Form12.Frame25.Visible = False Form12.Frame26.Visible = False Form12.Frame27.Visible = False Form12.Frame28.Visible = False Form12.Frame29.Visible = False Form12.Frame20.Visible = False Form12.Text3(1) = 0.9 Combo1.Text = "Select" For i = 1 To Numcamp1 If NomeCamp(i) = "source" Or NomeCamp(i) = "Source" Or NomeCamp(i) = "SOURCE" Then Combo1.Text = NomeCamp(i) AXX(Indeks) = i GoTo xx31 End If Next i Form12.Combo1.Text = C0M(Indeks) xx31: End If If Combo6.Text = "EC" Then If CambiaMod = False Then Option1.Visible = False Option2.Visible = False Else Option1.Visible = False Option2.Visible = False End If Frame1.Visible = True Frame2.Visible = True Frame6.Visible = False frame7.Visible = False Frame8.Visible = False Frame9.Visible = False Frame10.Visible = False Frame11.Visible = False Frame12.Visible = False Frame13.Visible = False Frame14.Visible = False Form12.Frame15.Visible = False Form12.Frame16.Visible = False Form12.Frame17.Visible = False Form12.Frame18.Visible = False Form12.Frame19.Visible = False Form12.Frame20.Visible = False Form12.Frame21.Visible = False Form12.Frame23.Visible = False Form12.Frame22.Visible = False Form12.Frame19.Visible = False Form12.Frame24.Visible = False Form12.Frame25.Visible = False Form12.Frame26.Visible = False Form12.Frame27.Visible = False Form12.Frame28.Visible = False Form12.Frame29.Visible = False Form12.Frame20.Visible = False Form12.Text3(1) = 1 Combo1.Text = "Select" For i = 1 To Numcamp1 If NomeCamp(i) = "c0" Or NomeCamp(i) = "C0" Or NomeCamp(i) = "cO" Or NomeCamp(i) = "CO" Or NomeCamp(i) = "Co" Or NomeCamp(i) = "co" Then Combo1.Text = NomeCamp(i) GoTo xx4 End If Next i Form12.Combo1.Text = C0M(Indeks) xx4: End If If Combo6.Text = "mixing (Elem Vs Elem)" Then Option1.Visible = False Option2.Visible = False Frame1.Visible = False Frame2.Visible = False Frame6.Visible = False frame7.Visible = False Frame8.Visible = False Frame9.Visible = True Frame10.Visible = True Frame11.Visible = False Frame12.Visible = False Frame13.Visible = False Frame14.Visible = False Form12.Frame15.Visible = False Form12.Frame16.Visible = False Form12.Frame17.Visible = False Form12.Frame18.Visible = False Form12.Frame19.Visible = False Form12.Frame20.Visible = False Form12.Frame21.Visible = False Form12.Frame23.Visible = False Form12.Frame22.Visible = False Form12.Frame19.Visible = False Form12.Frame24.Visible = False Form12.Frame25.Visible = False Form12.Frame26.Visible = False Form12.Frame27.Visible = False Form12.Frame28.Visible = False Form12.Frame29.Visible = False Form12.Frame20.Visible = False If C1M(Indeks) <> "" Then Form12.Combo8.Text = C1M(Indeks) Else Form12.Combo8.Text = "Select" End If If C2M(Indeks) <> "" Then Form12.Combo7.Text = C2M(Indeks) Else Form12.Combo7.Text = "Select" End If End If If Combo6.Text = "AFC" Then If CambiaMod = False Then Option1.Visible = False Option2.Visible = False Else Option1.Visible = False Option2.Visible = False End If Frame1.Visible = True Frame2.Visible = True Frame6.Visible = True frame7.Visible = True Frame8.Visible = False Frame9.Visible = False Frame10.Visible = False Frame11.Visible = False Frame12.Visible = False Frame13.Visible = False Frame14.Visible = False Form12.Frame15.Visible = False Form12.Frame16.Visible = False Form12.Frame17.Visible = False Form12.Frame18.Visible = False Form12.Frame19.Visible = False Form12.Frame20.Visible = False Form12.Frame21.Visible = False Form12.Frame23.Visible = False Form12.Frame22.Visible = False Form12.Frame19.Visible = False Form12.Frame24.Visible = False Form12.Frame25.Visible = False Form12.Frame26.Visible = False Form12.Frame27.Visible = False Form12.Frame28.Visible = False Form12.Frame29.Visible = False Form12.Frame20.Visible = False Form12.Text3(1) = 1 Combo1.Text = "Select" For i = 1 To Numcamp1 If NomeCamp(i) = "c0" Or NomeCamp(i) = "C0" Or NomeCamp(i) = "cO" Or NomeCamp(i) = "CO" Or NomeCamp(i) = "Co" Or NomeCamp(i) = "co" Then Combo1.Text = NomeCamp(i) GoTo xxx1 End If Next i Form12.Combo1.Text = C0M(Indeks) xxx1: Combo5.Text = "Select" For i = 1 To Numcamp1 If NomeCamp(i) = "Ca" Or NomeCamp(i) = "cA" Or NomeCamp(i) = "Ca" Or NomeCamp(i) = "ca" Or NomeCamp(i) = "CA" Then Combo5.Text = NomeCamp(i) GoTo xxx2 End If Next i Form12.Combo5.Text = CAM(Indeks) xxx2: End If If Combo6.Text = "RAFC" Then If CambiaMod = False Then Option1.Visible = False Option2.Visible = False Else Option1.Visible = False Option2.Visible = False End If Frame1.Visible = True Frame2.Visible = True Frame6.Visible = True frame7.Visible = False Frame8.Visible = False Frame9.Visible = False Frame10.Visible = False Frame11.Visible = False Frame12.Visible = False Frame13.Visible = False Frame14.Visible = False Form12.Frame15.Visible = False Form12.Frame16.Visible = False Form12.Frame17.Visible = False Form12.Frame18.Visible = False Form12.Frame19.Visible = False Form12.Frame20.Visible = False Form12.Frame21.Visible = False Form12.Frame23.Visible = True Form12.Frame22.Visible = True Form12.Frame19.Visible = False Form12.Frame24.Visible = False Form12.Frame25.Visible = False Form12.Frame26.Visible = False Form12.Frame27.Visible = False Form12.Frame28.Visible = False Form12.Frame29.Visible = False Form12.Frame20.Visible = False Combo1.Text = "Select" For i = 1 To Numcamp1 If NomeCamp(i) = "c0" Or NomeCamp(i) = "C0" Or NomeCamp(i) = "cO" Or NomeCamp(i) = "CO" Or NomeCamp(i) = "Co" Or NomeCamp(i) = "co" Then Combo1.Text = NomeCamp(i) GoTo xxx156 End If Next i Form12.Combo1.Text = C0M(Indeks) xxx156: Combo5.Text = "Select" For i = 1 To Numcamp1 If NomeCamp(i) = "Ca" Or NomeCamp(i) = "cA" Or NomeCamp(i) = "Ca" Or NomeCamp(i) = "ca" Or NomeCamp(i) = "CA" Then Combo5.Text = NomeCamp(i) GoTo xxx256 End If Next i Form12.Combo5.Text = CAM(Indeks) xxx256: End If If Combo6.Text = "Zone Refining" Then Option1.Visible = False Option2.Visible = False Frame1.Visible = False Frame2.Visible = True Frame6.Visible = False frame7.Visible = False Frame8.Visible = True Frame9.Visible = False Frame10.Visible = False Frame11.Visible = False Frame12.Visible = False Frame13.Visible = False Frame14.Visible = False Form12.Frame15.Visible = False Form12.Frame16.Visible = False Form12.Frame17.Visible = False Form12.Frame18.Visible = False Form12.Frame19.Visible = False Form12.Frame20.Visible = False Form12.Frame21.Visible = False Form12.Frame23.Visible = False Form12.Frame22.Visible = False Form12.Frame19.Visible = False Form12.Frame24.Visible = False Form12.Frame25.Visible = False Form12.Frame26.Visible = False Form12.Frame27.Visible = False Form12.Frame28.Visible = False Form12.Frame29.Visible = False Form12.Frame20.Visible = False Form12.Text3(1) = 1 Combo1.Text = "Select" For i = 1 To Numcamp1 If NomeCamp(i) = "c0" Or NomeCamp(i) = "C0" Or NomeCamp(i) = "cO" Or NomeCamp(i) = "CO" Or NomeCamp(i) = "Co" Or NomeCamp(i) = "co" Then Combo1.Text = NomeCamp(i) GoTo xxx3 End If Next i Form12.Combo1.Text = C0M(Indeks) xxx3: End If End Sub Private Sub Combo6_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Combo7_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Combo8_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Combo9_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Command1_Click() 'On Error GoTo rere INP.RecuperoXY AXX(GraphSelect), AXY(GraphSelect) If CambiaMod = False Then ModelSymbCol = Picture1(39).BackColor ModelLineCol = Picture1(21).BackColor saa = (NumModelli(Indeks) + 1) sbb = (NumModelli(Indeks) + 1) ColModLine(saa, Indeks) = ModelLineCol ColModSymb(sbb, Indeks) = ModelSymbCol Else ModelSymbCol = Picture1(39).BackColor ModelLineCol = Picture1(21).BackColor ColModLine(MODiD, Indeks) = ModelLineCol ColModSymb(MODiD, Indeks) = ModelSymbCol End If '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 finit = Val(Form12.Text2(1)) fifin = Val(Form12.Text3(1)) fstep = Val(Form12.Text4(1)) Parent = Form12.Combo1.Text Assimilant = Form12.Combo5.Text C1 = Form12.Combo8.Text C2 = Form12.Combo7.Text CR = Form12.Combo9.Text Xstep = Val(Form12.Text11.Text) R = Form12.Text5(1).Text ra = Form12.Text5(6).Text rr = Form12.Text5(7).Text Rc = Form12.Text5(8).Text Rrfta = Form12.Text5(5).Text yr1 = Form12.Text5(0).Text mp = Form12.Text5(2).Text ninit = Val(Form12.Text8) nifin = Val(Form12.Text7(1)) nstep = Val(Form12.Text6(1)) mm0 = Val(Form12.Text9.Text) mmf = Val(Form12.Text7(0).Text) stf = Val(Form12.Text6(0).Text) ff = Val(Form12.Text5(3).Text) fa = Val(Form12.Text5(4).Text) mo1 = Val(Form12.Text5(9).Text) 'rft cicli = Val(Form12.Text2(3).Text) stcicli = Val(Form12.Text2(4).Text) x01 = Val(Form12.Text2(5).Text) y01 = Val(Form12.Text2(2).Text) w01 = Val(Form12.Text2(6).Text) z01 = Val(Form12.Text2(7).Text) Cww = Form12.Combo10.Text Czz = Form12.Combo11.Text If Combo6.Text <> "mixing (Elem Vs Elem)" Then C0M(Indeks) = "select" CAM(Indeks) = "select" CRM(Indeks) = "select" C1M(Indeks) = C1 C2M(Indeks) = C2 CwM(Indeks) = "select" CzM(Indeks) = "select" For i = 1 To NumModelElem ModD(i) = Val(Form12.Text1(i - 1).Text) ModDRemember(i, Indeks) = Val(Form12.Text1(i - 1).Text) Next i End If If Combo6.Text = "Zone Refining" Then C0M(Indeks) = Parent CAM(Indeks) = "select" CRM(Indeks) = "select" C1M(Indeks) = "select" C2M(Indeks) = "select" CwM(Indeks) = "select" CzM(Indeks) = "select" model.ZR GraphSelect, Parent, ninit, nifin, nstep, ModelLineSp, ModelLineCol, ModelSymb, ModelSymbSp, ModelSymbCol, ModelSymbWid GoTo tt2: End If If Combo6.Text = "FC" Then C0M(Indeks) = Parent CAM(Indeks) = "select" CRM(Indeks) = "select" C1M(Indeks) = "select" C2M(Indeks) = "select" CwM(Indeks) = "select" CzM(Indeks) = "select" model.FC GraphSelect, Parent, finit, fifin, fstep, ModelLineSp, ModelLineCol, ModelSymb, ModelSymbSp, ModelSymbCol, ModelSymbWid GoTo tt2: End If If Combo6.Text = "RFT(A)" Then C0M(Indeks) = Parent CAM(Indeks) = "select" CRM(Indeks) = "select" C1M(Indeks) = "select" C2M(Indeks) = "select" CwM(Indeks) = Cww CzM(Indeks) = Czz model.RFT GraphSelect, Cww, Czz, mo1, cicli, stcicli, y01, x01, w01, z01, ModelLineSp, ModelLineCol, ModelSymb, ModelSymbSp, ModelSymbCol, ModelSymbWid GoTo tt2: End If If Combo6.Text = "In Situ C" Then C0M(Indeks) = Parent CAM(Indeks) = "select" CRM(Indeks) = "select" C1M(Indeks) = "select" C2M(Indeks) = "select" CwM(Indeks) = "select" CzM(Indeks) = "select" model.ISC GraphSelect, Parent, fa, ff, finit, fifin, fstep, ModelLineSp, ModelLineCol, ModelSymb, ModelSymbSp, ModelSymbCol, ModelSymbWid GoTo tt2: End If If Combo6.Text = "Fract melting" Then If fifin >= 1 Then MsgBox "Attention in FC model F have to be <1" Form12.Show Form12.SetFocus Exit Sub End If C0M(Indeks) = Parent CAM(Indeks) = "select" CRM(Indeks) = "select" C1M(Indeks) = "select" C2M(Indeks) = "select" CwM(Indeks) = "select" CzM(Indeks) = "select" model.FM GraphSelect, Parent, finit, fifin, fstep, ModelLineSp, ModelLineCol, ModelSymb, ModelSymbSp, ModelSymbCol, ModelSymbWid GoTo tt2: End If If Combo6.Text = "Cont melting" Then C0M(Indeks) = Parent CAM(Indeks) = "select" CRM(Indeks) = "select" C1M(Indeks) = "select" C2M(Indeks) = "select" CwM(Indeks) = "select" CzM(Indeks) = "select" model.CM GraphSelect, Parent, mp, finit, fifin, fstep, ModelLineSp, ModelLineCol, ModelSymb, ModelSymbSp, ModelSymbCol, ModelSymbWid GoTo tt2: End If If Combo6.Text = "mixing (Elem Vs Elem)" Then C0M(Indeks) = "select" CAM(Indeks) = "select" CRM(Indeks) = "select" C1M(Indeks) = C1 C2M(Indeks) = C2 CwM(Indeks) = "select" CzM(Indeks) = "select" model.Mix GraphSelect, C1, C2, Xstep, ModelLineSp, ModelLineCol, ModelSymb, ModelSymbSp, ModelSymbCol, ModelSymbWid GoTo tt2: End If If Combo6.Text = "Batch melting(mod. D0 or DR)" Then C0M(Indeks) = Parent CAM(Indeks) = "select" CRM(Indeks) = "select" C1M(Indeks) = "select" C2M(Indeks) = "select" CwM(Indeks) = "select" CzM(Indeks) = "select" model.BM GraphSelect, Parent, finit, fifin, fstep, ModelLineSp, ModelLineCol, ModelSymb, ModelSymbSp, ModelSymbCol, ModelSymbWid GoTo tt2: End If If Combo6.Text = "Batch melting(non-modal)" Then C0M(Indeks) = Parent CAM(Indeks) = "select" C1M(Indeks) = "select" C2M(Indeks) = "select" CwM(Indeks) = "select" CzM(Indeks) = "select" model.BMnonModal GraphSelect, Parent, finit, fifin, fstep, ModelLineSp, ModelLineCol, ModelSymb, ModelSymbSp, ModelSymbCol, ModelSymbWid GoTo tt2: End If If Combo6.Text = "EC" Then C0M(Indeks) = Parent CAM(Indeks) = "select" CRM(Indeks) = "select" C1M(Indeks) = "select" C2M(Indeks) = "select" CwM(Indeks) = "select" CzM(Indeks) = "select" model.EC GraphSelect, Parent, finit, fifin, fstep, ModelLineSp, ModelLineCol, ModelSymb, ModelSymbSp, ModelSymbCol, ModelSymbWid GoTo tt2: End If If Combo6.Text = "AFC" Then C0M(Indeks) = Parent CAM(Indeks) = Assimilant CRM(Indeks) = "select" C1M(Indeks) = "select" C2M(Indeks) = "select" CwM(Indeks) = "select" CzM(Indeks) = "select" model.AFC GraphSelect, Parent, Assimilant, R, finit, fifin, fstep, ModelLineSp, ModelLineCol, ModelSymb, ModelSymbSp, ModelSymbCol, ModelSymbWid GoTo tt2: End If If Combo6.Text = "RAFC" Then C0M(Indeks) = Parent CAM(Indeks) = Assimilant CRM(Indeks) = CR C1M(Indeks) = "select" C2M(Indeks) = "select" CwM(Indeks) = "select" CzM(Indeks) = "select" model.RAFC GraphSelect, Parent, Assimilant, CR, ra, rr, Rc, finit, fifin, fstep, ModelLineSp, ModelLineCol, ModelSymb, ModelSymbSp, ModelSymbCol, ModelSymbWid GoTo tt2: End If Exit Sub tt2: If tipoGraph(Indeks) = "normx-normy" Then MF1.DisegnaNormXNormY End If If tipoGraph(Indeks) = "normx-logy" Then MF1.DisegnaNormXLogY End If If tipoGraph(Indeks) = "logx-normy" Then MF1.DisegnaLogXNormY End If If tipoGraph(Indeks) = "logx-logy" Then MF1.DisegnaLogXLogY End If Form12.Hide GoTo rere1 rere: MsgBox "An Error Occurred", , "Error" rere1: End Sub Private Sub Command10_Click() Form12.Command1.SetFocus SelC1 = False SelC2 = False SelC0 = False SelCA = False SelC0I = False SelCAI = False SelCR = False SelCz = True SelCw = False picforms(GraphSelect).SetFocus End Sub Private Sub Command2_Click() Form12.Command1.SetFocus Form12.Hide End Sub Private Sub Command3_Click() Form12.Command1.SetFocus SelC1 = False SelC2 = False SelC0 = True SelCA = False SelC0I = False SelCAI = False SelCR = False SelCz = False SelCw = False picforms(GraphSelect).SetFocus End Sub Private Sub Command4_Click() Form12.Command1.SetFocus SelC1 = False SelC2 = False SelC0 = False SelCA = True SelC0I = False SelCAI = False SelCR = False SelCz = False SelCw = False picforms(GraphSelect).SetFocus End Sub Private Sub Command5_Click() Form12.Command1.SetFocus SelC1 = False SelC2 = True SelC0 = False SelCA = False SelC0I = False SelCAI = False SelCR = False SelCz = False SelCw = False picforms(GraphSelect).SetFocus End Sub Private Sub Command6_Click() Form12.Command1.SetFocus SelC1 = True SelC2 = False SelC0 = False SelCA = False SelC0I = False SelCAI = False SelCR = False SelCz = False SelCw = False picforms(GraphSelect).SetFocus End Sub Private Sub Command7_Click() Form12.Command1.SetFocus Form17.Show Form17.SetFocus End Sub Private Sub Command8_Click() Form12.Command1.SetFocus SelC1 = False SelC2 = False SelC0 = False SelCA = False SelC0I = False SelCAI = False SelCR = True SelCz = False SelCw = False picforms(GraphSelect).SetFocus End Sub Private Sub Command9_Click() Form12.Command1.SetFocus SelC1 = False SelC2 = False SelC0 = False SelCA = False SelC0I = False SelCAI = False SelCR = False SelCz = False SelCw = True picforms(GraphSelect).SetFocus End Sub Private Sub Label38_Click() End Sub Private Sub Option1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Option2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Picture1_Click(Index As Integer) If Index = 39 Then CMD1.ShowColor ModelSymbCol = CMD1.Color Form12.Picture1(39).BackColor = CMD1.Color End If If Index = 21 Then CMD1.ShowColor ModelLineCol = CMD1.Color Form12.Picture1(21).BackColor = CMD1.Color End If 'picture(0) If Index = 0 Then Form12.Picture1(41).Cls Form12.Picture1(41).FillColor = QBColor(0) Form12.Picture1(41).FillStyle = 0 Form12.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 Form12.Picture1(41).Cls Form12.Picture1(41).FillColor = QBColor(0) Form12.Picture1(41).FillStyle = 1 Form12.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 Form12.Picture1(41).Cls Form12.Picture1(41).FillColor = QBColor(0) Form12.Picture1(41).FillStyle = 0 Form12.Picture1(41).Circle (5, 5), 2, QBColor(0) ModelSymb = Index + 1 End If 'picture(3) If Index = 3 Then Form12.Picture1(41).Cls Form12.Picture1(41).FillColor = QBColor(0) Form12.Picture1(41).FillStyle = 1 Form12.Picture1(41).Circle (5, 5), 2, QBColor(0) ModelSymb = Index + 1 End If 'picture(4) If Index = 4 Then Form12.Picture1(41).Cls Form12.Picture1(41).FillStyle = 1 Form12.Picture1(41).Line (5 - 2, 5 - 2)-(5, 5 + 2), QBColor(0) Form12.Picture1(41).Line (5 - 2, 5 - 2)-(5 + 2, 5 - 2), QBColor(0) Form12.Picture1(41).Line (5 + 2, 5 - 2)-(5, 5 + 2), QBColor(0) ModelSymb = Index + 1 End If 'picture(5) If Index = 5 Then Form12.Picture1(41).Cls Form12.Picture1(41).FillStyle = 1 Form12.Picture1(41).Line (5 - 2, 5 + 2)-(5, 5 - 2), QBColor(0) Form12.Picture1(41).Line (5 - 2, 5 + 2)-(5 + 2, 5 + 2), QBColor(0) Form12.Picture1(41).Line (5 + 2, 5 + 2)-(5, 5 - 2), QBColor(0) ModelSymb = Index + 1 End If 'picture(6) If Index = 6 Then Form12.Picture1(41).Cls Form12.Picture1(41).FillStyle = 1 Form12.Picture1(41).Line (5 - 2, 5)-(5 + 2, 5), QBColor(0) Form12.Picture1(41).Line (5, 5 - 2)-(5, 5 + 2), QBColor(0) Form12.Picture1(41).Line (5 - 2, 5 - 2)-(5 + 2, 5 + 2), QBColor(0) Form12.Picture1(41).Line (5 + 2, 5 - 2)-(5 - 2, 5 + 2), QBColor(0) ModelSymb = Index + 1 End If 'picture(7) If Index = 7 Then Form12.Picture1(41).Cls Form12.Picture1(41).FillStyle = 1 Form12.Picture1(41).Line (5 - 2, 5)-(5 + 2, 5), QBColor(0) Form12.Picture1(41).Line (5, 5 - 2)-(5, 5 + 2), QBColor(0) ModelSymb = Index + 1 End If 'picture(8) If Index = 8 Then Form12.Picture1(41).Cls Form12.Picture1(41).FillStyle = 1 Form12.Picture1(41).Line (5 - 2, 5)-(5, 5 + 4), QBColor(0) Form12.Picture1(41).Line (5, 5 + 4)-(5 + 2, 5), QBColor(0) Form12.Picture1(41).Line (5 + 2, 5)-(5, 5 - 4), QBColor(0) Form12.Picture1(41).Line (5, 5 - 4)-(5 - 2, 5), QBColor(0) ModelSymb = Index + 1 End If End Sub Private Sub Picture1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Text11_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Text2_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Text3_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Text4_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Text5_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Text6_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Text7_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Text8_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Text9_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub