VERSION 2.00
Begin Form Startup 
   Caption         =   "Formula One Linked Worksheets Example"
   ClientHeight    =   6270
   ClientLeft      =   720
   ClientTop       =   420
   ClientWidth     =   7710
   Height          =   6675
   Icon            =   FORM1.FRX:0000
   Left            =   660
   LinkTopic       =   "Form1"
   ScaleHeight     =   6270
   ScaleWidth      =   7710
   Top             =   75
   Width           =   7830
   Begin CommandButton Command1 
      Caption         =   "Exit"
      Height          =   375
      Left            =   6360
      TabIndex        =   5
      Top             =   5760
      Width           =   1275
   End
   Begin SSView Sheet3 
      AllowAppLaunch  =   -1  'True
      DataAutoAddNew  =   -1  'True
      DataConnected   =   -1  'True
      DataFields      =   ""
      DataHdrField    =   ""
      DataRowsBuffered=   128
      DataSetColumnFormats=   -1  'True
      DataSetColumnNames=   -1  'True
      DataSetColumnWidths=   -1  'True
      DataSetMaxCol   =   -1  'True
      DataSetMaxRow   =   -1  'True
      DoCancelEdit    =   -1  'True
      DoClick         =   -1  'True
      DoDataNewRow    =   -1  'True
      DoDataRowLoad   =   -1  'True
      DoDblClick      =   -1  'True
      DoEndEdit       =   -1  'True
      DoEndRecalc     =   -1  'True
      DoSelChange     =   -1  'True
      DoStartEdit     =   -1  'True
      DoStartRecalc   =   -1  'True
      DoTopLeftChanged=   -1  'True
      EditName        =   "SSEdit1"
      FileName        =   FORM1.FRX:0442
      Height          =   1335
      Left            =   120
      TabIndex        =   3
      TableName       =   "Sheet3"
      Top             =   4800
      Width           =   5955
   End
   Begin SSView Sheet2 
      AllowAppLaunch  =   -1  'True
      DataAutoAddNew  =   -1  'True
      DataConnected   =   -1  'True
      DataFields      =   ""
      DataHdrField    =   ""
      DataRowsBuffered=   128
      DataSetColumnFormats=   -1  'True
      DataSetColumnNames=   -1  'True
      DataSetColumnWidths=   -1  'True
      DataSetMaxCol   =   -1  'True
      DataSetMaxRow   =   -1  'True
      DoCancelEdit    =   -1  'True
      DoClick         =   -1  'True
      DoDataNewRow    =   -1  'True
      DoDataRowLoad   =   -1  'True
      DoDblClick      =   -1  'True
      DoEndEdit       =   -1  'True
      DoEndRecalc     =   -1  'True
      DoSelChange     =   -1  'True
      DoStartEdit     =   -1  'True
      DoStartRecalc   =   -1  'True
      DoTopLeftChanged=   -1  'True
      EditName        =   "SSEdit1"
      FileName        =   FORM1.FRX:0E3A
      Height          =   1335
      Left            =   120
      TabIndex        =   2
      TableName       =   "Sheet2"
      Top             =   2640
      Width           =   5955
   End
   Begin SSView Sheet1 
      AllowAppLaunch  =   -1  'True
      DataAutoAddNew  =   -1  'True
      DataConnected   =   -1  'True
      DataFields      =   ""
      DataHdrField    =   ""
      DataRowsBuffered=   128
      DataSetColumnFormats=   -1  'True
      DataSetColumnNames=   -1  'True
      DataSetColumnWidths=   -1  'True
      DataSetMaxCol   =   -1  'True
      DataSetMaxRow   =   -1  'True
      DoCancelEdit    =   -1  'True
      DoClick         =   -1  'True
      DoDataNewRow    =   -1  'True
      DoDataRowLoad   =   -1  'True
      DoDblClick      =   -1  'True
      DoEndEdit       =   -1  'True
      DoEndRecalc     =   -1  'True
      DoSelChange     =   -1  'True
      DoStartEdit     =   -1  'True
      DoStartRecalc   =   -1  'True
      DoTopLeftChanged=   -1  'True
      EditName        =   "SSEdit1"
      FileName        =   FORM1.FRX:15F8
      Height          =   1335
      Left            =   120
      TabIndex        =   1
      TableName       =   "Sheet1"
      Top             =   1200
      Width           =   5955
   End
   Begin SSEdit SSEdit1 
      EditName        =   "SSEdit1"
      Height          =   315
      Left            =   120
      TabIndex        =   0
      Top             =   840
      Width           =   5955
   End
   Begin Label Label2 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "VisualTools' External Worksheet Example"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   18
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00FF0000&
      Height          =   435
      Left            =   120
      TabIndex        =   6
      Top             =   120
      Width           =   7455
   End
   Begin Label Label1 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "This Table Totals The Two Tables Above"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   12
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   120
      TabIndex        =   4
      Top             =   4320
      Width           =   5955
   End
End
Option Explicit

Sub Command1_Click ()
End
End Sub

Sub Sheet1_EndRecalc ()
    Dim sserror%
    sserror = SSRecalc(Sheet3.SS)
    Sheet3.Refresh
End Sub

Sub Sheet2_EndRecalc ()
    Dim sserror%
    sserror = SSRecalc(Sheet3.SS)
    Sheet3.Refresh
End Sub

