VERSION 5.00 Begin VB.Form Form24 BorderStyle = 4 'Fixed ToolWindow ClientHeight = 4800 ClientLeft = 30 ClientTop = 270 ClientWidth = 8460 LinkTopic = "Form24" MaxButton = 0 'False MDIChild = -1 'True MinButton = 0 'False ScaleHeight = 4800 ScaleWidth = 8460 ShowInTaskbar = 0 'False Begin VB.CommandButton Command1 Caption = "Hide (SpaceBar)" BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 372 Left = 6120 TabIndex = 1 Top = 4320 Width = 2055 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Yb" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 139 Left = 6936 TabIndex = 93 Top = 3600 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Tm" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 138 Left = 6480 TabIndex = 92 Top = 3600 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Er" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 137 Left = 6012 TabIndex = 91 Top = 3600 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Ho" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 136 Left = 5592 TabIndex = 90 Top = 3600 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Dy" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 135 Left = 5148 TabIndex = 89 Top = 3600 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Tb" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 134 Left = 4680 TabIndex = 88 Top = 3600 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Gd" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 133 Left = 4248 TabIndex = 87 Top = 3600 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Eu" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 132 Left = 3792 TabIndex = 86 Top = 3600 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Sm" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 131 Left = 3336 TabIndex = 85 Top = 3600 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Pm" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 130 Left = 2868 TabIndex = 84 Top = 3600 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Nd" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 129 Left = 2448 TabIndex = 83 Top = 3600 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Pr" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 128 Left = 2004 TabIndex = 82 Top = 3600 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Ce" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 127 Left = 1560 TabIndex = 81 Top = 3600 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "La" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 126 Left = 1080 TabIndex = 80 Top = 3600 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Lu" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 125 Left = 7440 TabIndex = 79 Top = 3600 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Rn" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 124 Left = 7848 TabIndex = 78 Top = 2556 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Xe" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 123 Left = 7848 TabIndex = 77 Top = 2064 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Kr" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 122 Left = 7848 TabIndex = 76 Top = 1584 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Ar" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 121 Left = 7848 TabIndex = 75 Top = 1080 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Ne" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 120 Left = 7848 TabIndex = 74 Top = 600 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "He" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 119 Left = 7848 TabIndex = 73 Top = 108 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "At" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 117 Left = 7380 TabIndex = 72 Top = 2556 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "I" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 116 Left = 7380 TabIndex = 71 Top = 2064 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Br" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 115 Left = 7380 TabIndex = 70 Top = 1584 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Cl" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 114 Left = 7380 TabIndex = 69 Top = 1080 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "F" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 113 Left = 7380 TabIndex = 68 Top = 600 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "H" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 112 Left = 7380 TabIndex = 67 Top = 108 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "U" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 111 Left = 2448 TabIndex = 66 Top = 4056 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Po" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 110 Left = 6960 TabIndex = 65 Top = 2556 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Te" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 109 Left = 6960 TabIndex = 64 Top = 2064 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Se" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 108 Left = 6960 TabIndex = 63 Top = 1560 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "S" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 107 Left = 6960 TabIndex = 62 Top = 1080 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "O" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 106 Left = 6960 TabIndex = 61 Top = 600 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Pa" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 104 Left = 2004 TabIndex = 60 Top = 4056 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Bi" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 103 Left = 6492 TabIndex = 59 Top = 2556 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Sb" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 102 Left = 6492 TabIndex = 58 Top = 2064 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "As" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 101 Left = 6492 TabIndex = 57 Top = 1584 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "P" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 100 Left = 6492 TabIndex = 56 Top = 1080 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "N" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 99 Left = 6492 TabIndex = 55 Top = 600 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Th" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 97 Left = 1548 TabIndex = 54 Top = 4056 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Pb" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 96 Left = 6036 TabIndex = 53 Top = 2556 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Sn" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 95 Left = 6036 TabIndex = 52 Top = 2064 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Ge" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 94 Left = 6036 TabIndex = 51 Top = 1584 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Si" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 93 Left = 6036 TabIndex = 50 Top = 1080 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "C" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 92 Left = 6036 TabIndex = 49 Top = 600 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Ac" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 90 Left = 1080 TabIndex = 48 Top = 4056 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Ti" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 89 Left = 5568 TabIndex = 47 Top = 2556 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "In" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 88 Left = 5568 TabIndex = 46 Top = 2064 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Ga" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 87 Left = 5568 TabIndex = 45 Top = 1584 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Al" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 86 Left = 5568 TabIndex = 44 Top = 1080 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "B" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 85 Left = 5568 TabIndex = 43 Top = 600 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Hg" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 82 Left = 5136 TabIndex = 42 Top = 2556 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Cd" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 81 Left = 5136 TabIndex = 41 Top = 2064 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Zn" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 80 Left = 5136 TabIndex = 40 Top = 1584 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Au" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 75 Left = 4680 TabIndex = 39 Top = 2556 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Ag" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 74 Left = 4680 TabIndex = 38 Top = 2064 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Cu" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 73 Left = 4680 TabIndex = 37 Top = 1584 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Pt" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 68 Left = 4248 TabIndex = 36 Top = 2556 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Pd" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 67 Left = 4248 TabIndex = 35 Top = 2064 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Ni" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 66 Left = 4248 TabIndex = 34 Top = 1584 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Ir" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 61 Left = 3792 TabIndex = 33 Top = 2556 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Rh" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 60 Left = 3792 TabIndex = 32 Top = 2064 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Co" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 59 Left = 3792 TabIndex = 31 Top = 1584 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Os" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 54 Left = 3336 TabIndex = 30 Top = 2556 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Ru" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 53 Left = 3336 TabIndex = 29 Top = 2064 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Fe" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 52 Left = 3336 TabIndex = 28 Top = 1584 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Re" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 47 Left = 2880 TabIndex = 27 Top = 2556 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Tc" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 46 Left = 2880 TabIndex = 26 Top = 2064 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Mn" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 45 Left = 2880 TabIndex = 25 Top = 1584 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "W" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 40 Left = 2448 TabIndex = 24 Top = 2556 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Mo" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 39 Left = 2448 TabIndex = 23 Top = 2064 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Cr" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 38 Left = 2448 TabIndex = 22 Top = 1584 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Ta" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 33 Left = 2016 TabIndex = 21 Top = 2568 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Nb" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 32 Left = 2016 TabIndex = 20 Top = 2076 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "V" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 31 Left = 2016 TabIndex = 19 Top = 1596 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Hf" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 26 Left = 1560 TabIndex = 18 Top = 2556 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Zr" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 25 Left = 1560 TabIndex = 17 Top = 2064 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Ti" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 24 Left = 1560 TabIndex = 16 Top = 1584 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Y" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 18 Left = 1092 TabIndex = 15 Top = 2064 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Sc" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 17 Left = 1092 TabIndex = 14 Top = 1584 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Ra" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 13 Left = 636 TabIndex = 13 Top = 3072 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Ba" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 12 Left = 636 TabIndex = 12 Top = 2556 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Sr" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 11 Left = 636 TabIndex = 11 Top = 2064 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Ca" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 10 Left = 636 TabIndex = 10 Top = 1584 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Mg" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 9 Left = 636 TabIndex = 9 Top = 1080 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Be" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 8 Left = 636 TabIndex = 8 Top = 600 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Fr" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 6 Left = 168 TabIndex = 7 Top = 3072 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Cs" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 5 Left = 168 TabIndex = 6 Top = 2556 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Rb" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 4 Left = 168 TabIndex = 5 Top = 2064 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "K" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 3 Left = 168 TabIndex = 4 Top = 1584 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Na" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 2 Left = 168 TabIndex = 3 Top = 1080 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "Li" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 1 Left = 168 TabIndex = 2 Top = 600 Width = 372 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00C0FFFF& Caption = "H" BeginProperty Font Name = "Arial" Size = 10.5 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000C0& Height = 372 Index = 0 Left = 168 TabIndex = 0 Top = 108 Width = 372 End End Attribute VB_Name = "Form24" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click() Form24.Hide End Sub Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 32 Then Command1_Click End If End Sub Private Sub Label1_Click(Index As Integer) aa = Label1(Index).Caption INP.PartitionCoeff (aa) Form25.Caption = "Partition coefficent for " + aa 'Form24.Hide End Sub