VERSION 5.00 Begin VB.Form Form17 BorderStyle = 4 'Fixed ToolWindow Caption = "non modal behaviour" ClientHeight = 4770 ClientLeft = 45 ClientTop = 285 ClientWidth = 11610 LinkTopic = "Form17" MaxButton = 0 'False MDIChild = -1 'True MinButton = 0 'False ScaleHeight = 4770 ScaleWidth = 11610 ShowInTaskbar = 0 'False 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 = 375 Left = 7920 TabIndex = 84 Top = 4320 Width = 1455 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 = 375 Left = 9600 TabIndex = 1 Top = 4320 Width = 1455 End Begin VB.ComboBox Combo1 BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 315 ItemData = "Form17.frx":0000 Left = 1692 List = "Form17.frx":001C TabIndex = 83 Text = "select" Top = 120 Width = 975 End Begin VB.TextBox Text8 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 7 Left = 10080 TabIndex = 81 Text = "0" Top = 3720 Visible = 0 'False Width = 975 End Begin VB.TextBox Text7 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 7 Left = 8760 TabIndex = 80 Text = "0" Top = 3720 Visible = 0 'False Width = 975 End Begin VB.TextBox Text6 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 7 Left = 7440 TabIndex = 79 Text = "0" Top = 3720 Visible = 0 'False Width = 975 End Begin VB.TextBox Text5 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 7 Left = 6120 TabIndex = 78 Text = "0" Top = 3720 Visible = 0 'False Width = 975 End Begin VB.TextBox Text4 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 7 Left = 4800 TabIndex = 77 Text = "0" Top = 3720 Visible = 0 'False Width = 975 End Begin VB.TextBox Text3 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 7 Left = 3600 TabIndex = 76 Text = "0" Top = 3720 Visible = 0 'False Width = 975 End Begin VB.TextBox Text2 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 7 Left = 2280 TabIndex = 75 Text = "0" Top = 3720 Visible = 0 'False Width = 975 End Begin VB.TextBox Text1 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 7 Left = 960 TabIndex = 74 Text = "0" Top = 3720 Visible = 0 'False Width = 975 End Begin VB.TextBox Text8 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 6 Left = 10080 TabIndex = 73 Text = "0" Top = 3360 Visible = 0 'False Width = 975 End Begin VB.TextBox Text7 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 6 Left = 8760 TabIndex = 72 Text = "0" Top = 3360 Visible = 0 'False Width = 975 End Begin VB.TextBox Text6 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 6 Left = 7440 TabIndex = 71 Text = "0" Top = 3360 Visible = 0 'False Width = 975 End Begin VB.TextBox Text5 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 6 Left = 6120 TabIndex = 70 Text = "0" Top = 3360 Visible = 0 'False Width = 975 End Begin VB.TextBox Text4 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 6 Left = 4800 TabIndex = 69 Text = "0" Top = 3360 Visible = 0 'False Width = 975 End Begin VB.TextBox Text3 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 6 Left = 3600 TabIndex = 68 Text = "0" Top = 3360 Visible = 0 'False Width = 975 End Begin VB.TextBox Text2 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 6 Left = 2280 TabIndex = 67 Text = "0" Top = 3360 Visible = 0 'False Width = 975 End Begin VB.TextBox Text1 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 6 Left = 960 TabIndex = 66 Text = "0" Top = 3360 Visible = 0 'False Width = 975 End Begin VB.TextBox Text8 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 5 Left = 10080 TabIndex = 65 Text = "0" Top = 3000 Visible = 0 'False Width = 975 End Begin VB.TextBox Text7 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 5 Left = 8760 TabIndex = 64 Text = "0" Top = 3000 Visible = 0 'False Width = 975 End Begin VB.TextBox Text6 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 5 Left = 7440 TabIndex = 63 Text = "0" Top = 3000 Visible = 0 'False Width = 975 End Begin VB.TextBox Text5 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 5 Left = 6120 TabIndex = 62 Text = "0" Top = 3000 Visible = 0 'False Width = 975 End Begin VB.TextBox Text4 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 5 Left = 4800 TabIndex = 61 Text = "0" Top = 3000 Visible = 0 'False Width = 975 End Begin VB.TextBox Text3 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 5 Left = 3600 TabIndex = 60 Text = "0" Top = 3000 Visible = 0 'False Width = 975 End Begin VB.TextBox Text2 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 5 Left = 2280 TabIndex = 59 Text = "0" Top = 3000 Visible = 0 'False Width = 975 End Begin VB.TextBox Text1 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 5 Left = 960 TabIndex = 58 Text = "0" Top = 3000 Visible = 0 'False Width = 975 End Begin VB.TextBox Text8 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 4 Left = 10080 TabIndex = 57 Text = "0" Top = 2640 Visible = 0 'False Width = 975 End Begin VB.TextBox Text7 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 4 Left = 8760 TabIndex = 56 Text = "0" Top = 2640 Visible = 0 'False Width = 975 End Begin VB.TextBox Text6 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 4 Left = 7440 TabIndex = 55 Text = "0" Top = 2640 Visible = 0 'False Width = 975 End Begin VB.TextBox Text5 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 4 Left = 6120 TabIndex = 54 Text = "0" Top = 2640 Visible = 0 'False Width = 975 End Begin VB.TextBox Text4 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 4 Left = 4800 TabIndex = 53 Text = "0" Top = 2640 Visible = 0 'False Width = 975 End Begin VB.TextBox Text3 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 4 Left = 3600 TabIndex = 52 Text = "0" Top = 2640 Visible = 0 'False Width = 975 End Begin VB.TextBox Text2 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 4 Left = 2280 TabIndex = 51 Text = "0" Top = 2640 Visible = 0 'False Width = 975 End Begin VB.TextBox Text1 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 4 Left = 960 TabIndex = 50 Text = "0" Top = 2640 Visible = 0 'False Width = 975 End Begin VB.TextBox Text8 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 3 Left = 10080 TabIndex = 49 Text = "0" Top = 2280 Visible = 0 'False Width = 975 End Begin VB.TextBox Text7 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 3 Left = 8760 TabIndex = 48 Text = "0" Top = 2280 Visible = 0 'False Width = 975 End Begin VB.TextBox Text6 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 3 Left = 7440 TabIndex = 47 Text = "0" Top = 2280 Visible = 0 'False Width = 975 End Begin VB.TextBox Text5 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 3 Left = 6120 TabIndex = 46 Text = "0" Top = 2280 Visible = 0 'False Width = 975 End Begin VB.TextBox Text4 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 3 Left = 4800 TabIndex = 45 Text = "0" Top = 2280 Visible = 0 'False Width = 975 End Begin VB.TextBox Text3 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 3 Left = 3600 TabIndex = 44 Text = "0" Top = 2280 Visible = 0 'False Width = 975 End Begin VB.TextBox Text2 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 3 Left = 2280 TabIndex = 43 Text = "0" Top = 2280 Visible = 0 'False Width = 975 End Begin VB.TextBox Text1 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 3 Left = 960 TabIndex = 42 Text = "0" Top = 2280 Visible = 0 'False Width = 975 End Begin VB.TextBox Text8 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 2 Left = 10080 TabIndex = 41 Text = "0" Top = 1920 Visible = 0 'False Width = 975 End Begin VB.TextBox Text7 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 2 Left = 8760 TabIndex = 40 Text = "0" Top = 1920 Visible = 0 'False Width = 975 End Begin VB.TextBox Text6 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 2 Left = 7440 TabIndex = 39 Text = "0" Top = 1920 Visible = 0 'False Width = 975 End Begin VB.TextBox Text5 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 2 Left = 6120 TabIndex = 38 Text = "0" Top = 1920 Visible = 0 'False Width = 975 End Begin VB.TextBox Text4 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 2 Left = 4800 TabIndex = 37 Text = "0" Top = 1920 Visible = 0 'False Width = 975 End Begin VB.TextBox Text3 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 2 Left = 3600 TabIndex = 36 Text = "0" Top = 1920 Visible = 0 'False Width = 975 End Begin VB.TextBox Text2 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 2 Left = 2280 TabIndex = 35 Text = "0" Top = 1920 Visible = 0 'False Width = 975 End Begin VB.TextBox Text1 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 7.5 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 285 Index = 2 Left = 960 TabIndex = 34 Text = "0" Top = 1920 Visible = 0 'False Width = 975 End Begin VB.TextBox Text8 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004080& Height = 285 Index = 1 Left = 10080 TabIndex = 33 Text = "0" Top = 1440 Visible = 0 'False Width = 975 End Begin VB.TextBox Text7 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004080& Height = 285 Index = 1 Left = 8760 TabIndex = 32 Text = "0" Top = 1440 Visible = 0 'False Width = 975 End Begin VB.TextBox Text6 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004080& Height = 285 Index = 1 Left = 7440 TabIndex = 31 Text = "0" Top = 1440 Visible = 0 'False Width = 975 End Begin VB.TextBox Text5 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004080& Height = 285 Index = 1 Left = 6120 TabIndex = 30 Text = "0" Top = 1440 Visible = 0 'False Width = 975 End Begin VB.TextBox Text4 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004080& Height = 285 Index = 1 Left = 4800 TabIndex = 29 Text = "0" Top = 1440 Visible = 0 'False Width = 975 End Begin VB.TextBox Text3 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004080& Height = 285 Index = 1 Left = 3600 TabIndex = 28 Text = "0" Top = 1440 Visible = 0 'False Width = 975 End Begin VB.TextBox Text2 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004080& Height = 285 Index = 1 Left = 2280 TabIndex = 27 Text = "0" Top = 1440 Visible = 0 'False Width = 975 End Begin VB.TextBox Text1 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004080& Height = 285 Index = 1 Left = 960 TabIndex = 26 Text = "0" Top = 1440 Visible = 0 'False Width = 975 End Begin VB.TextBox Text8 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 285 Index = 0 Left = 10080 TabIndex = 25 Text = "0" Top = 960 Visible = 0 'False Width = 975 End Begin VB.TextBox Text7 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 285 Index = 0 Left = 8760 TabIndex = 24 Text = "0" Top = 960 Visible = 0 'False Width = 975 End Begin VB.TextBox Text6 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 285 Index = 0 Left = 7440 TabIndex = 23 Text = "0" Top = 960 Visible = 0 'False Width = 975 End Begin VB.TextBox Text5 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 285 Index = 0 Left = 6120 TabIndex = 22 Text = "0" Top = 960 Visible = 0 'False Width = 975 End Begin VB.TextBox Text4 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 285 Index = 0 Left = 4800 TabIndex = 21 Text = "0" Top = 960 Visible = 0 'False Width = 975 End Begin VB.TextBox Text3 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 285 Index = 0 Left = 3600 TabIndex = 20 Text = "0" Top = 960 Visible = 0 'False Width = 975 End Begin VB.TextBox Text2 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 285 Index = 0 Left = 2280 TabIndex = 19 Text = "0" Top = 960 Visible = 0 'False Width = 975 End Begin VB.TextBox Text1 Alignment = 2 'Center BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 285 Index = 0 Left = 960 TabIndex = 18 Text = "0" Top = 960 Visible = 0 'False Width = 975 End Begin VB.Label Label6 Caption = "Number of phase" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 120 TabIndex = 82 Top = 120 Width = 1935 End Begin VB.Label Label3 Alignment = 2 'Center Caption = "c-pyroxene" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000040C0& Height = 372 Index = 7 Left = 9960 TabIndex = 17 Top = 600 Visible = 0 'False Width = 1212 End Begin VB.Label Label3 Alignment = 2 'Center Caption = "c-pyroxene" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000040C0& Height = 375 Index = 6 Left = 8640 TabIndex = 16 Top = 600 Visible = 0 'False Width = 1215 End Begin VB.Label Label3 Alignment = 2 'Center Caption = "c-pyroxene" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000040C0& Height = 375 Index = 5 Left = 7320 TabIndex = 15 Top = 600 Visible = 0 'False Width = 1215 End Begin VB.Label Label3 Alignment = 2 'Center Caption = "c-pyroxene" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000040C0& Height = 375 Index = 4 Left = 6000 TabIndex = 14 Top = 600 Visible = 0 'False Width = 1215 End Begin VB.Label Label3 Alignment = 2 'Center Caption = "c-pyroxene" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000040C0& Height = 375 Index = 3 Left = 4680 TabIndex = 13 Top = 600 Visible = 0 'False Width = 1215 End Begin VB.Label Label3 Alignment = 2 'Center Caption = "c-pyroxene" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000040C0& Height = 375 Index = 2 Left = 3480 TabIndex = 12 Top = 600 Visible = 0 'False Width = 1215 End Begin VB.Label Label3 Alignment = 2 'Center Caption = "c-pyroxene" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000040C0& Height = 375 Index = 1 Left = 2160 TabIndex = 11 Top = 600 Visible = 0 'False Width = 1215 End Begin VB.Label Label5 Alignment = 2 'Center Caption = "K for" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Index = 5 Left = 0 TabIndex = 10 Top = 3720 Visible = 0 'False Width = 975 End Begin VB.Label Label5 Alignment = 2 'Center Caption = "K for" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Index = 4 Left = 0 TabIndex = 9 Top = 3360 Visible = 0 'False Width = 975 End Begin VB.Label Label5 Alignment = 2 'Center Caption = "K for" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Index = 3 Left = 0 TabIndex = 8 Top = 3000 Visible = 0 'False Width = 975 End Begin VB.Label Label5 Alignment = 2 'Center Caption = "K for" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Index = 2 Left = 0 TabIndex = 7 Top = 2640 Visible = 0 'False Width = 975 End Begin VB.Label Label5 Alignment = 2 'Center Caption = "K for" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Index = 1 Left = 0 TabIndex = 6 Top = 2280 Visible = 0 'False Width = 975 End Begin VB.Label Label5 Alignment = 2 'Center Caption = "K for" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Index = 0 Left = 0 TabIndex = 5 Top = 1920 Visible = 0 'False Width = 975 End Begin VB.Label Label4 Alignment = 2 'Center Caption = "p" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00004080& Height = 372 Left = 120 TabIndex = 4 Top = 1440 Visible = 0 'False Width = 732 End Begin VB.Label Label3 Alignment = 2 'Center Caption = "c-pyroxene" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000040C0& Height = 375 Index = 0 Left = 840 TabIndex = 3 Top = 600 Visible = 0 'False Width = 1215 End Begin VB.Label Label2 Caption = "Phase" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000040C0& Height = 372 Left = 240 TabIndex = 2 Top = 600 Visible = 0 'False Width = 732 End Begin VB.Label Label1 Alignment = 2 'Center Caption = "X°" BeginProperty Font Name = "Arial" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00008000& Height = 372 Left = 120 TabIndex = 0 Top = 960 Visible = 0 'False Width = 732 End End Attribute VB_Name = "Form17" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Combo1_Click() Label1.Visible = True Label2.Visible = True Label4.Visible = True numFasi = Int(Val(Combo1.Text)) num = NumModelElem2(Indeks) + 2 'inserisco i K For i = 1 To 6 If i <= NumModelElem2(Indeks) Then Label5(i - 1).Caption = "K-" + ModElementi(i) Label5(i - 1).Visible = True GoTo eee End If Label5(i - 1).Visible = False eee: Next i 'inserisco le fasi mineralogiche For i = 1 To 8 If i <= numFasi Then Label3(i - 1).Visible = True GoTo rrr End If Label3(i - 1).Visible = False rrr: Next i '1 FASE MIN If Combo1.Text = "1" Then For i = 1 To num Text1(i - 1).Visible = True Text2(i - 1).Visible = False Text3(i - 1).Visible = False Text4(i - 1).Visible = False Text5(i - 1).Visible = False Text6(i - 1).Visible = False Text7(i - 1).Visible = False Text8(i - 1).Visible = False Next i End If '2 FASE MIN If Combo1.Text = "2" Then For i = 1 To num Text1(i - 1).Visible = True Text2(i - 1).Visible = True Text3(i - 1).Visible = False Text4(i - 1).Visible = False Text5(i - 1).Visible = False Text6(i - 1).Visible = False Text7(i - 1).Visible = False Text8(i - 1).Visible = False Next i End If '3 FASE MIN If Combo1.Text = "3" Then For i = 1 To num Text1(i - 1).Visible = True Text2(i - 1).Visible = True Text3(i - 1).Visible = True Text4(i - 1).Visible = False Text5(i - 1).Visible = False Text6(i - 1).Visible = False Text7(i - 1).Visible = False Text8(i - 1).Visible = False Next i End If '4 FASE MIN If Combo1.Text = "4" Then For i = 1 To num Text1(i - 1).Visible = True Text2(i - 1).Visible = True Text3(i - 1).Visible = True Text4(i - 1).Visible = True Text5(i - 1).Visible = False Text6(i - 1).Visible = False Text7(i - 1).Visible = False Text8(i - 1).Visible = False Next i End If '5 FASE MIN If Combo1.Text = "5" Then For i = 1 To num Text1(i - 1).Visible = True Text2(i - 1).Visible = True Text3(i - 1).Visible = True Text4(i - 1).Visible = True Text5(i - 1).Visible = True Text6(i - 1).Visible = False Text7(i - 1).Visible = False Text8(i - 1).Visible = False Next i End If '6 FASE MIN If Combo1.Text = "6" Then For i = 1 To num Text1(i - 1).Visible = True Text2(i - 1).Visible = True Text3(i - 1).Visible = True Text4(i - 1).Visible = True Text5(i - 1).Visible = True Text6(i - 1).Visible = True Text7(i - 1).Visible = False Text8(i - 1).Visible = False Next i End If '7 FASE MIN If Combo1.Text = "7" Then For i = 1 To num Text1(i - 1).Visible = True Text2(i - 1).Visible = True Text3(i - 1).Visible = True Text4(i - 1).Visible = True Text5(i - 1).Visible = True Text6(i - 1).Visible = True Text7(i - 1).Visible = True Text8(i - 1).Visible = False Next i End If '8 FASE MIN If Combo1.Text = "8" Then For i = 1 To num Text1(i - 1).Visible = True Text2(i - 1).Visible = True Text3(i - 1).Visible = True Text4(i - 1).Visible = True Text5(i - 1).Visible = True Text6(i - 1).Visible = True Text7(i - 1).Visible = True Text8(i - 1).Visible = True Next i End If End Sub Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub Private Sub Command1_Click() On Error GoTo ee For i = 1 To NumModelElem2(Indeks) ModDO(i) = ((Val(Text1(0).Text)) * (Val(Text1(i + 1).Text))) + ((Val(Text2(0).Text)) * (Val(Text2(i + 1).Text))) + ((Val(Text3(0).Text)) * (Val(Text3(i + 1).Text))) + ((Val(Text4(0).Text)) * (Val(Text4(i + 1).Text))) + ((Val(Text5(0).Text)) * (Val(Text5(i + 2).Text))) + ((Val(Text6(0).Text)) * (Val(Text6(i + 1).Text))) + ((Val(Text7(0).Text)) * (Val(Text7(i + 2).Text))) + ((Val(Text8(0).Text)) * (Val(Text8(i + 1).Text))) ModPI(i) = ((Val(Text1(1).Text)) * (Val(Text1(i + 1).Text))) + ((Val(Text2(1).Text)) * (Val(Text2(i + 1).Text))) + ((Val(Text3(1).Text)) * (Val(Text3(i + 1).Text))) + ((Val(Text4(1).Text)) * (Val(Text4(i + 1).Text))) + ((Val(Text5(1).Text)) * (Val(Text5(i + 2).Text))) + ((Val(Text6(1).Text)) * (Val(Text6(i + 1).Text))) + ((Val(Text7(1).Text)) * (Val(Text7(i + 2).Text))) + ((Val(Text8(1).Text)) * (Val(Text8(i + 1).Text))) Next i Form17.Hide GoTo ee1 ee: MsgBox "An Error Occurred", , "Error" Form17.Hide Exit Sub ee1: End Sub Private Sub Command2_Click() Form17.Hide End Sub Private Sub Label3_Click(Index As Integer) Minerale = Index Form18.left = Form17.left Form18.top = Form17.top Form18.Show 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 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(Index As Integer, KeyCode As Integer, Shift As Integer) If KeyCode = 32 Then Command1_Click End If End Sub