VERSION 5.00 Begin VB.Form Form18 BorderStyle = 0 'None Caption = "Form18" ClientHeight = 2616 ClientLeft = 0 ClientTop = 0 ClientWidth = 5448 LinkTopic = "Form18" MaxButton = 0 'False MDIChild = -1 'True MinButton = 0 'False ScaleHeight = 2616 ScaleWidth = 5448 ShowInTaskbar = 0 'False Begin VB.CommandButton Command1 BackColor = &H00C0FFFF& Caption = "..." DisabledPicture = "Form18.frx":0000 BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 39 Left = 4080 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 39 Top = 2280 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0E0FF& Caption = "..." DisabledPicture = "Form18.frx":1B12 BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 38 Left = 2760 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 38 Top = 2280 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0FFFF& Caption = "..." DisabledPicture = "Form18.frx":3624 BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 37 Left = 1440 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 37 Top = 2280 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0E0FF& Caption = "..." DisabledPicture = "Form18.frx":5136 BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 36 Left = 120 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 36 Top = 2280 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0FFFF& Caption = "..." DisabledPicture = "Form18.frx":6C48 BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 35 Left = 4080 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 35 Top = 2040 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0E0FF& Caption = "..." DisabledPicture = "Form18.frx":875A BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 34 Left = 2760 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 34 Top = 2040 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0FFFF& Caption = "..." DisabledPicture = "Form18.frx":A26C BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 33 Left = 1440 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 33 Top = 2040 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0E0FF& Caption = "..." DisabledPicture = "Form18.frx":BD7E BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 32 Left = 120 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 32 Top = 2040 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0FFFF& Caption = "..." DisabledPicture = "Form18.frx":D890 BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 31 Left = 4080 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 31 Top = 1800 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0E0FF& Caption = "..." DisabledPicture = "Form18.frx":F3A2 BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 30 Left = 2760 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 30 Top = 1800 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0FFFF& Caption = "..." DisabledPicture = "Form18.frx":10EB4 BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 29 Left = 1440 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 29 Top = 1800 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0E0FF& Caption = "..." DisabledPicture = "Form18.frx":129C6 BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 28 Left = 120 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 28 Top = 1800 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0FFFF& Caption = "..." DisabledPicture = "Form18.frx":144D8 BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 27 Left = 4080 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 27 Top = 1560 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0E0FF& Caption = "..." DisabledPicture = "Form18.frx":15FEA BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 26 Left = 2760 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 26 Top = 1560 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0FFFF& Caption = "..." DisabledPicture = "Form18.frx":17AFC BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 25 Left = 1440 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 25 Top = 1560 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0E0FF& Caption = "..." DisabledPicture = "Form18.frx":1960E BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 24 Left = 120 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 24 Top = 1560 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0FFFF& Caption = "..." DisabledPicture = "Form18.frx":1B120 BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 23 Left = 4080 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 23 Top = 1320 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0E0FF& Caption = "..." DisabledPicture = "Form18.frx":1CC32 BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 22 Left = 2760 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 22 Top = 1320 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0FFFF& Caption = "..." DisabledPicture = "Form18.frx":1E744 BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 21 Left = 1440 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 21 Top = 1320 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0E0FF& Caption = "..." DisabledPicture = "Form18.frx":20256 BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 20 Left = 120 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 20 Top = 1320 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0FFFF& Caption = "..." DisabledPicture = "Form18.frx":21D68 BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 19 Left = 4080 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 19 Top = 1080 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0E0FF& Caption = "..." DisabledPicture = "Form18.frx":2387A BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 18 Left = 2760 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 18 Top = 1080 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0FFFF& Caption = "..." DisabledPicture = "Form18.frx":2538C BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 17 Left = 1440 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 17 Top = 1080 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0E0FF& Caption = "..." DisabledPicture = "Form18.frx":26E9E BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 16 Left = 120 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 16 Top = 1080 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0FFFF& Caption = "..." DisabledPicture = "Form18.frx":289B0 BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 15 Left = 4080 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 15 Top = 840 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0E0FF& Caption = "..." DisabledPicture = "Form18.frx":2A4C2 BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 14 Left = 2760 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 14 Top = 840 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0FFFF& Caption = "..." DisabledPicture = "Form18.frx":2BFD4 BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 13 Left = 1440 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 13 Top = 840 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0E0FF& Caption = "..." DisabledPicture = "Form18.frx":2DAE6 BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 12 Left = 120 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 12 Top = 840 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0FFFF& Caption = "..." DisabledPicture = "Form18.frx":2F5F8 BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 11 Left = 4080 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 11 Top = 600 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0E0FF& Caption = "..." DisabledPicture = "Form18.frx":3110A BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 10 Left = 2760 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 10 Top = 600 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0FFFF& Caption = "..." DisabledPicture = "Form18.frx":32C1C BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 9 Left = 1440 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 9 Top = 600 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0E0FF& Caption = "..." DisabledPicture = "Form18.frx":3472E BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 8 Left = 120 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 8 Top = 600 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0FFFF& Caption = "k-feldspar" DisabledPicture = "Form18.frx":36240 BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 7 Left = 4080 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 7 Top = 360 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0E0FF& Caption = "biotite" DisabledPicture = "Form18.frx":37D52 BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 6 Left = 2760 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 6 Top = 360 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0FFFF& Caption = "amphibole" DisabledPicture = "Form18.frx":39864 BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 5 Left = 1440 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 5 Top = 360 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0E0FF& Caption = "spinel" DisabledPicture = "Form18.frx":3B376 BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 4 Left = 120 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 4 Top = 360 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0FFFF& Caption = "plagioclase" DisabledPicture = "Form18.frx":3CE88 BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 3 Left = 4080 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 3 Top = 120 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0E0FF& Caption = "c-pyroxene" DisabledPicture = "Form18.frx":3E99A BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 2 Left = 2760 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 2 Top = 120 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0FFFF& Caption = "o-pyroxene" DisabledPicture = "Form18.frx":404AC BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 1 Left = 1440 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 1 Top = 120 Width = 1275 End Begin VB.CommandButton Command1 BackColor = &H00C0E0FF& Caption = "Olivine" DisabledPicture = "Form18.frx":41FBE BeginProperty Font Name = "Arial" Size = 9 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Index = 0 Left = 120 MaskColor = &H00C0E0FF& Style = 1 'Graphical TabIndex = 0 Top = 120 Width = 1275 End End Attribute VB_Name = "Form18" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click(Index As Integer) Form17.Label3(Minerale).Caption = Command1(Index).Caption Form18.Hide End Sub