 1
      frmTaskList.Show
   Case 2
      frmMatrixDemo.Show
   Case 3
      frmOnDemand.Show
   End Select
   
   
End Sub

Private Sub mnuFile_Click(Index As Integer)
   Select Case Index
   Case 0
      LoadGridData
   Case 1
      SaveGridData
   Case 3
      Unload Me
   End Select
End Sub

Private Sub LoadGridData()
Dim sFile As String
Dim cC As New cCommonDialog
Dim iFIle As Integer
On Error GoTo ErrorHandler
   If (cC.VBGetOpenFileName(sFile, Filter:="SGrid Data Files (*.sgd)|*.sgd|All
    Files (*.