*)|*.*", DefaultExt:="SGD", Owner:=Me.hWnd)) Then
      grdThis.LoadGridData sFile
   End If
   Exit Sub
ErrorHandler:
   MsgBox Err.Description, vbExclamation
   Exit Sub
End Sub
Private Sub SaveGridData()
Dim sFile As String
Dim cC As New cCommonDialog
Dim iFIle As Integer
On Error GoTo ErrorHandler
   If (cC.VBGetSaveFileName(sFile, Filter:="SGrid Data Files (*.sgd)|*.sgd|All
    Files (*.*)|*.*", DefaultExt:="SGD", Owner:=Me.hWnd)) Then
      killFileIfExists sFile
      grdThis.SaveGridData sFile
   En