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