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