VERSION 5.00
Begin VB.Form monitor_demohist 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Population"
   ClientHeight    =   3555
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3990
   ClipControls    =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   3555
   ScaleWidth      =   3990
   Begin VB.TextBox Text1 
      Height          =   315
      Left            =   3960
      TabIndex        =   0
      Top             =   1020
      Width           =   795
      Visible         =   0   'False
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "65"
      Height          =   195
      Left            =   1920
      TabIndex        =   5
      Top             =   900
      Width           =   375
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      Caption         =   "20"
      Height          =   195
      Left            =   1920
      TabIndex        =   4
      Top             =   2280
      Width           =   375
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "Age"
      Height          =   255
      Left            =   1740
      TabIndex        =   3
      Top             =   3000
      Width           =   375
   End
   Begin VB.Label Label2 
      Caption         =   "Men"
      Height          =   195
      Left            =   120
      TabIndex        =   2
      Top             =   60
      Width           =   495
   End
   Begin VB.Label Label1 
      Caption         =   "Women"
      Height          =   195
      Left            =   3180
      TabIndex        =   1
      Top             =   60
      Width           =   615
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   79
      Left            =   1920
      Top             =   60
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   78
      Left            =   1920
      Top             =   210
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   77
      Left            =   1920
      Top             =   360
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   76
      Left            =   1920
      Top             =   510
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   75
      Left            =   1920
      Top             =   660
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   74
      Left            =   1920
      Top             =   810
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   73
      Left            =   1920
      Top             =   960
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   72
      Left            =   1920
      Top             =   1110
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   71
      Left            =   1920
      Top             =   1260
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   70
      Left            =   1920
      Top             =   1410
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   69
      Left            =   1920
      Top             =   1560
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   68
      Left            =   1920
      Top             =   1710
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   67
      Left            =   1920
      Top             =   1860
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   66
      Left            =   1920
      Top             =   2010
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   65
      Left            =   1920
      Top             =   2160
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   64
      Left            =   1920
      Top             =   2310
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   63
      Left            =   1920
      Top             =   2460
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   62
      Left            =   1920
      Top             =   2610
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   61
      Left            =   1920
      Top             =   2760
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FF8080&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   60
      Left            =   1920
      Top             =   2910
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   59
      Left            =   120
      Top             =   60
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   58
      Left            =   120
      Top             =   210
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   57
      Left            =   60
      Top             =   360
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   56
      Left            =   120
      Top             =   510
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   55
      Left            =   120
      Top             =   660
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   54
      Left            =   120
      Top             =   810
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   53
      Left            =   120
      Top             =   960
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   52
      Left            =   120
      Top             =   1110
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   51
      Left            =   120
      Top             =   1260
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   50
      Left            =   120
      Top             =   1410
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   49
      Left            =   120
      Top             =   1560
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   48
      Left            =   120
      Top             =   1710
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   47
      Left            =   120
      Top             =   1860
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   46
      Left            =   120
      Top             =   2010
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   45
      Left            =   120
      Top             =   2160
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   44
      Left            =   120
      Top             =   2310
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   43
      Left            =   120
      Top             =   2460
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   42
      Left            =   120
      Top             =   2610
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   41
      Left            =   120
      Top             =   2760
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   40
      Left            =   120
      Top             =   2910
      Width           =   1800
   End
   Begin VB.Line Line2 
      X1              =   1440
      X2              =   2280
      Y1              =   3120
      Y2              =   3120
   End
   Begin VB.Line Line1 
      X1              =   180
      X2              =   1020
      Y1              =   3120
      Y2              =   3120
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   0
      Left            =   120
      Top             =   2910
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   1
      Left            =   120
      Top             =   2760
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   2
      Left            =   120
      Top             =   2610
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   3
      Left            =   120
      Top             =   2460
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   4
      Left            =   120
      Top             =   2310
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   5
      Left            =   120
      Top             =   2160
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   6
      Left            =   120
      Top             =   2010
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   7
      Left            =   120
      Top             =   1860
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   8
      Left            =   120
      Top             =   1710
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   9
      Left            =   120
      Top             =   1560
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   10
      Left            =   120
      Top             =   1410
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   11
      Left            =   120
      Top             =   1260
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   12
      Left            =   120
      Top             =   1110
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   13
      Left            =   120
      Top             =   960
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   14
      Left            =   120
      Top             =   810
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   15
      Left            =   120
      Top             =   660
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   16
      Left            =   120
      Top             =   510
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   17
      Left            =   120
      Top             =   360
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   18
      Left            =   120
      Top             =   210
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   19
      Left            =   120
      Top             =   60
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   20
      Left            =   1920
      Top             =   2910
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   21
      Left            =   1920
      Top             =   2760
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   22
      Left            =   1920
      Top             =   2610
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   23
      Left            =   1920
      Top             =   2460
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   24
      Left            =   1920
      Top             =   2310
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   25
      Left            =   1920
      Top             =   2160
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   26
      Left            =   1920
      Top             =   2010
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   27
      Left            =   1920
      Top             =   1860
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   28
      Left            =   1920
      Top             =   1710
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   29
      Left            =   1920
      Top             =   1560
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   30
      Left            =   1920
      Top             =   1410
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   31
      Left            =   1920
      Top             =   1260
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   32
      Left            =   1920
      Top             =   1110
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   33
      Left            =   1920
      Top             =   960
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   34
      Left            =   1920
      Top             =   810
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   35
      Left            =   1920
      Top             =   660
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   36
      Left            =   1920
      Top             =   510
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   37
      Left            =   1920
      Top             =   360
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   38
      Left            =   1920
      Top             =   210
      Width           =   1800
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00C0C0C0&
      BorderStyle     =   0  'Transparent
      FillColor       =   &H00FFFFFF&
      FillStyle       =   0  'Solid
      Height          =   150
      Index           =   39
      Left            =   1920
      Top             =   60
      Width           =   1800
   End
End
Attribute VB_Name = "monitor_demohist"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private popcount(1 To 2, 0 To 19) As Long
Private popcount_excl(1 To 2, 0 To 19) As Long
Private initok As Integer
Private maxcount As Long


Private Sub Form_Load()
   Dim s As Integer
   Me.Height = 3600
   Me.Width = 4000
   For s = 40 To 79
     Shape1(s).FillColor = &HFF8080
   Next
   initok = 1
   Call bef_pyr(0)
   Me.Caption = "Population (in Sweden) " & CStr(base_year + model_time)
End Sub

Private Sub bef_pyr(flag) Dim maxcountthisyear As Long, i As Long Dim j As Integer, temp As Integer, w As Integer, base As Integer, h As Integer If initok = 0 Then Exit Sub w = (Me.Width - 400) / 2 B = (Me.Width - 160) / 2 h = (Me.Height - 600) / 20 If w < 0 Then w = 0 If B < 0 Then B = 0 If h < 0 Then h = 0 If flag = 0 Then For i = 0 To 19 popcount(1, i) = 0 popcount(2, i) = 0 popcount_excl(1, i) = 0 popcount_excl(2, i) = 0 Next Dim add As Integer For i = 1 To m_icount add = select_i(i) ' counts individuals in agegroups ' NOTE: only individuals living in Sweden If i_age(i) < 100 And i_abroad(i) = 0 Then temp = Int(i_age(i) / 5) popcount(i_sex(i), temp) = popcount(i_sex(i), temp) + 1 If popcount(i_sex(i), temp) > maxcountthisyear Then maxcountthisyear = popcount(i_sex(i), temp) popcount_excl(i_sex(i), temp) = popcount_excl(i_sex(i), temp) + add End If Next If maxcountthisyear > maxcount Then maxcount = maxcountthisyear End If For i = 0 To 19 Shape1(i).Height = h Shape1(i).Left = B - (popcount(1, i) / maxcount) * w Shape1(i).Width = (popcount(1, i) / maxcount) * w Shape1(i + 20).Height = h Shape1(i + 20).Left = B Shape1(i + 20).Width = (popcount(2, i) / maxcount) * w Next For i = 40 To 59 Shape1(i).Height = h Shape1(i).Left = B - (popcount_excl(1, i - 40) / maxcount) * w Shape1(i).Width = (popcount_excl(1, i - 40) / maxcount) * w Shape1(i + 20).Height = h Shape1(i + 20).Left = B Shape1(i + 20).Width = (popcount_excl(2, i - 40) / maxcount) * w Next j = 60 For i = 19 To 0 Step -1 If h < 100 Then Shape1(i).BorderColor = QBColor(15) Shape1(i + 20).BorderColor = QBColor(15) Shape1(i).BorderStyle = 1 Shape1(i + 20).BorderStyle = 1 Else Shape1(i).BorderColor = &HFFFFFF Shape1(i + 20).BorderColor = &HFFFFFF Shape1(i).BorderStyle = 0 Shape1(i + 20).BorderStyle = 0 End If Shape1(i).Top = j Shape1(i + 20).Top = j j = j + h Next j = 60 For i = 59 To 40 Step -1 Shape1(i).Top = j Shape1(i + 20).Top = j j = j + h Next Line1.y1 = 60 + 7 * h Line1.y2 = 60 + 7 * h Line1.x1 = 120 Line1.x2 = 120 + w * 2 Line2.y1 = 60 + 16 * h Line2.y2 = 60 + 16 * h Line2.x1 = 120 Line2.x2 = 120 + w * 2 End Sub
Private Sub Form_Unload(Cancel As Integer) maxcount = 0 Erase popcount Erase popcount_excl initok = 0 coll_view.Remove "mdemhist" controlcenter.cmdDemohist.enabled = True End Sub
Private Sub Text1_Change() Call bef_pyr(0) Me.Caption = "Population (in Sweden) " & CStr(base_year + model_time) End Sub