VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Form25 
   BorderStyle     =   4  'Fixed ToolWindow
   ClientHeight    =   4575
   ClientLeft      =   30
   ClientTop       =   270
   ClientWidth     =   10560
   BeginProperty Font 
      Name            =   "Arial"
      Size            =   9
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form25"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   4575
   ScaleWidth      =   10560
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command1 
      Caption         =   "Hide (SpaceBar)"
      Height          =   372
      Left            =   8160
      TabIndex        =   1
      Top             =   4080
      Width           =   2175
   End
   Begin MSFlexGridLib.MSFlexGrid Grid1 
      Height          =   3852
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   10092
      _ExtentX        =   17806
      _ExtentY        =   6800
      _Version        =   393216
      Cols            =   6
      FixedCols       =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Arial"
         Size            =   7.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
End
Attribute VB_Name = "Form25"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()

Form25.Hide

End Sub



Private Sub Form_Load()

Grid1.ColWidth(0) = 3000
Grid1.ColWidth(1) = 2000
Grid1.ColWidth(2) = 2000



Grid1.Row = 0
Grid1.col = 0
Grid1.Text = "References"
Grid1.col = 1
Grid1.Text = "Rock"
Grid1.col = 2
Grid1.Text = "Mineral"
Grid1.col = 3
Grid1.Text = "Value"
Grid1.col = 4
Grid1.Text = "Min"
Grid1.col = 5
Grid1.Text = "Max"
End Sub

Private Sub Grid1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 32 Then
Command1_Click
End If

End Sub