VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Begin VB.Form controlcenter
Caption = "Control Centre"
ClientHeight = 5295
ClientLeft = 60
ClientTop = 345
ClientWidth = 4860
ControlBox = 0 'False
ForeColor = &H80000002&
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
ScaleHeight = 5295
ScaleWidth = 4860
Visible = 0 'False
Begin MSComDlg.CommonDialog CommonDialog1
Left = 4440
Top = 360
_ExtentX = 847
_ExtentY = 847
_Version = 393216
DialogTitle = "Parameter file"
End
Begin VB.TextBox Text4
Height = 285
Left = 4440
TabIndex = 18
Text = "Text4"
Top = 960
Width = 615
End
Begin TabDlg.SSTab SSTab1
Height = 3615
Left = 0
TabIndex = 6
Top = 120
Width = 4395
_ExtentX = 7752
_ExtentY = 6376
_Version = 393216
Tabs = 5
Tab = 1
TabsPerRow = 5
TabHeight = 520
WordWrap = 0 'False
TabCaption(0) = "Control"
TabPicture(0) = "controlcenter.frx":0000
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "cmd_OutputData"
Tab(0).Control(1)= "AdodcMacro"
Tab(0).Control(2)= "CmdGlobalSelection"
Tab(0).Control(3)= "Frame2"
Tab(0).Control(4)= "Frame1"
Tab(0).ControlCount= 5
TabCaption(1) = "Options"
TabPicture(1) = "controlcenter.frx":001C
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "Label8"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Label2"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Label6"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "Label9"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "Label5"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "chk2Savehist"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).Control(6)= "txtWeight"
Tab(1).Control(6).Enabled= 0 'False
Tab(1).Control(7)= "chk2Saveincomehist"
Tab(1).Control(7).Enabled= 0 'False
Tab(1).Control(8)= "chk2Saveoutfiles"
Tab(1).Control(8).Enabled= 0 'False
Tab(1).Control(9)= "txt2MYparameterfilname"
Tab(1).Control(9).Enabled= 0 'False
Tab(1).Control(10)= "cmd1Randomize"
Tab(1).Control(10).Enabled= 0 'False
Tab(1).Control(11)= "txt2BASEparameterfilname"
Tab(1).Control(11).Enabled= 0 'False
Tab(1).Control(12)= "chk2Price99"
Tab(1).Control(12).Enabled= 0 'False
Tab(1).Control(13)= "chk2SaveAccessdb"
Tab(1).Control(13).Enabled= 0 'False
Tab(1).Control(14)= "txtPercentofsample"
Tab(1).Control(14).Enabled= 0 'False
Tab(1).Control(15)= "cmdBrowsepar1"
Tab(1).Control(15).Enabled= 0 'False
Tab(1).Control(16)= "cmdBrowsepar2"
Tab(1).Control(16).Enabled= 0 'False
Tab(1).Control(17)= "cmdSaveOptions"
Tab(1).Control(17).Enabled= 0 'False
Tab(1).Control(18)= "txt2Runsystem"
Tab(1).Control(18).Enabled= 0 'False
Tab(1).Control(19)= "chkRetire65"
Tab(1).Control(19).Enabled= 0 'False
Tab(1).Control(20)= "txtRetire"
Tab(1).Control(20).Enabled= 0 'False
Tab(1).Control(21)= "chkRandomize"
Tab(1).Control(21).Enabled= 0 'False
Tab(1).ControlCount= 22
TabCaption(2) = "Step"
TabPicture(2) = "controlcenter.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "chkDataexist(19)"
Tab(2).Control(1)= "chkDataexist(18)"
Tab(2).Control(2)= "chkDataexist(17)"
Tab(2).Control(3)= "chkDataexist(16)"
Tab(2).Control(4)= "chkDataexist(15)"
Tab(2).Control(5)= "chkDataexist(14)"
Tab(2).Control(6)= "chkDataexist(13)"
Tab(2).Control(7)= "chkDataexist(12)"
Tab(2).Control(8)= "chkDataexist(11)"
Tab(2).Control(9)= "chkDataexist(10)"
Tab(2).Control(10)= "chkDataexist(59)"
Tab(2).Control(11)= "chkDataexist(58)"
Tab(2).Control(12)= "chkDataexist(57)"
Tab(2).Control(13)= "chkDataexist(56)"
Tab(2).Control(14)= "chkDataexist(55)"
Tab(2).Control(15)= "chkDataexist(54)"
Tab(2).Control(16)= "chkDataexist(53)"
Tab(2).Control(17)= "chkDataexist(52)"
Tab(2).Control(18)= "chkDataexist(51)"
Tab(2).Control(19)= "chkDataexist(50)"
Tab(2).Control(20)= "chkDataexist(49)"
Tab(2).Control(21)= "chkDataexist(48)"
Tab(2).Control(22)= "chkDataexist(47)"
Tab(2).Control(23)= "chkDataexist(46)"
Tab(2).Control(24)= "chkDataexist(45)"
Tab(2).Control(25)= "chkDataexist(44)"
Tab(2).Control(26)= "chkDataexist(43)"
Tab(2).Control(27)= "chkDataexist(42)"
Tab(2).Control(28)= "chkDataexist(41)"
Tab(2).Control(29)= "chkDataexist(40)"
Tab(2).Control(30)= "chkDataexist(39)"
Tab(2).Control(31)= "chkDataexist(38)"
Tab(2).Control(32)= "chkDataexist(37)"
Tab(2).Control(33)= "chkDataexist(36)"
Tab(2).Control(34)= "chkDataexist(35)"
Tab(2).Control(35)= "chkDataexist(34)"
Tab(2).Control(36)= "chkDataexist(33)"
Tab(2).Control(37)= "chkDataexist(32)"
Tab(2).Control(38)= "chkDataexist(31)"
Tab(2).Control(39)= "chkDataexist(30)"
Tab(2).Control(40)= "chkDataexist(29)"
Tab(2).Control(41)= "chkDataexist(28)"
Tab(2).Control(42)= "chkDataexist(27)"
Tab(2).Control(43)= "chkDataexist(26)"
Tab(2).Control(44)= "chkDataexist(25)"
Tab(2).Control(45)= "chkDataexist(24)"
Tab(2).Control(46)= "chkDataexist(23)"
Tab(2).Control(47)= "chkDataexist(22)"
Tab(2).Control(48)= "chkDataexist(21)"
Tab(2).Control(49)= "chkDataexist(20)"
Tab(2).Control(50)= "txtGotoyear"
Tab(2).Control(51)= "chkDataexist(9)"
Tab(2).Control(52)= "chkDataexist(8)"
Tab(2).Control(53)= "chkDataexist(7)"
Tab(2).Control(54)= "chkDataexist(6)"
Tab(2).Control(55)= "chkDataexist(5)"
Tab(2).Control(56)= "chkDataexist(4)"
Tab(2).Control(57)= "chkDataexist(3)"
Tab(2).Control(58)= "chkDataexist(2)"
Tab(2).Control(59)= "chkDataexist(1)"
Tab(2).Control(60)= "chkDataexist(0)"
Tab(2).Control(61)= "cmd1Goto"
Tab(2).ControlCount= 62
TabCaption(3) = "Param"
TabPicture(3) = "controlcenter.frx":0054
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "Adodc1"
Tab(3).Control(1)= "gridparm"
Tab(3).ControlCount= 2
TabCaption(4) = "Test!"
TabPicture(4) = "controlcenter.frx":0070
Tab(4).ControlEnabled= 0 'False
Tab(4).Control(0)= "cmd_writedata"
Tab(4).Control(1)= "cmd_contingency"
Tab(4).Control(2)= "cmdStatistics"
Tab(4).Control(3)= "cmdScript"
Tab(4).Control(4)= "cmdTest"
Tab(4).ControlCount= 5
Begin VB.CheckBox chkRandomize
Caption = "Check1"
Height = 255
Left = 3120
TabIndex = 111
Top = 1560
Width = 255
End
Begin VB.CommandButton cmd_OutputData
Caption = "Manage Output Data "
Enabled = 0 'False
Height = 495
Left = -74760
TabIndex = 110
Top = 2400
Width = 1695
End
Begin VB.TextBox txtRetire
Height = 285
Left = 1560
TabIndex = 109
Text = "65"
ToolTipText = "Pension age between 61 and 70"
Top = 1560
Width = 375
End
Begin VB.CommandButton cmd_writedata
Caption = "Manage Output Data"
Height = 495
Left = -72600
TabIndex = 108
Top = 600
Width = 1095
End
Begin VB.CheckBox chkRetire65
Caption = "Retire all at age 65"
Height = 255
Left = 120
TabIndex = 107
ToolTipText = "Exogenous pension age wanted"
Top = 1560
Width = 2175
End
Begin MSAdodcLib.Adodc AdodcMacro
Height = 375
Left = -72360
Top = 3000
Width = 1215
Visible = 0 'False
_ExtentX = 2143
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "AdodcMacro"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin VB.CommandButton CmdGlobalSelection
Caption = "Population Selection"
Enabled = 0 'False
Height = 495
Left = -74760
TabIndex = 106
ToolTipText = "Select subsets of the model population for analysis"
Top = 1920
Width = 1695
End
Begin VB.CommandButton cmd_contingency
Caption = "contingency table"
Height = 375
Left = -74760
TabIndex = 105
Top = 2400
Width = 1575
End
Begin VB.CommandButton cmdStatistics
Caption = "Statistics"
Height = 375
Left = -74760
TabIndex = 104
Top = 1800
Width = 1575
End
Begin VB.CommandButton cmdScript
Caption = "Scripting"
Height = 330
Left = -74760
TabIndex = 103
ToolTipText = "Frequency tables"
Top = 1080
Width = 1695
End
Begin VB.TextBox txt2Runsystem
Height = 285
Left = 3480
TabIndex = 102
ToolTipText = "Path to parameter file"
Top = 1200
Width = 700
End
Begin VB.CommandButton cmdSaveOptions
Caption = "Save options"
Height = 375
Left = 120
TabIndex = 100
Top = 3120
Width = 1575
End
Begin VB.CommandButton cmdBrowsepar2
Caption = "Browse..."
Height = 255
Left = 3240
TabIndex = 99
Top = 2760
Width = 855
End
Begin VB.CommandButton cmdBrowsepar1
Caption = "Browse..."
Height = 255
Left = 3240
TabIndex = 98
Top = 2160
Width = 855
End
Begin VB.CommandButton cmdTest
Caption = "Test"
Height = 375
Left = -74760
TabIndex = 97
Top = 600
Width = 1095
End
Begin MSAdodcLib.Adodc Adodc1
Height = 330
Left = -74880
Top = 3120
Width = 1215
_ExtentX = 2143
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 2
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSDataGridLib.DataGrid gridparm
Bindings = "controlcenter.frx":008C
Height = 2655
Left = -74880
TabIndex = 96
Top = 480
Width = 3975
_ExtentX = 7011
_ExtentY = 4683
_Version = 393216
HeadLines = 1
RowHeight = 15
AllowAddNew = -1 'True
AllowDelete = -1 'True
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 2
BeginProperty Column00
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1053
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1053
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
Begin VB.TextBox txtPercentofsample
Height = 285
Left = 3480
TabIndex = 94
Text = "1"
ToolTipText = "Scaling weight to population"
Top = 840
Width = 700
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 19
Left = -71520
TabIndex = 92
Top = 1320
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 18
Left = -71880
TabIndex = 91
Top = 1320
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 17
Left = -72240
TabIndex = 90
Top = 1320
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 16
Left = -72600
TabIndex = 89
Top = 1320
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 15
Left = -72960
TabIndex = 88
Top = 1320
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 14
Left = -73320
TabIndex = 87
Top = 1320
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 13
Left = -73680
TabIndex = 86
Top = 1320
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 12
Left = -74040
TabIndex = 85
Top = 1320
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 11
Left = -74400
TabIndex = 84
Top = 1320
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 10
Left = -74760
TabIndex = 83
Top = 1320
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 59
Left = -71520
TabIndex = 82
Top = 2280
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 58
Left = -71880
TabIndex = 81
Top = 2280
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 57
Left = -72240
TabIndex = 80
Top = 2280
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 56
Left = -72600
TabIndex = 79
Top = 2280
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 55
Left = -72960
TabIndex = 78
Top = 2280
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 54
Left = -73320
TabIndex = 77
Top = 2280
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 53
Left = -73680
TabIndex = 76
Top = 2280
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 52
Left = -74040
TabIndex = 75
Top = 2280
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 51
Left = -74400
TabIndex = 74
Top = 2280
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 50
Left = -74760
TabIndex = 73
Top = 2280
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 49
Left = -71520
TabIndex = 72
Top = 2040
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 48
Left = -71880
TabIndex = 71
Top = 2040
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 47
Left = -72240
TabIndex = 70
Top = 2040
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 46
Left = -72600
TabIndex = 69
Top = 2040
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 45
Left = -72960
TabIndex = 68
Top = 2040
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 44
Left = -73320
TabIndex = 67
Top = 2040
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 43
Left = -73680
TabIndex = 66
Top = 2040
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 42
Left = -74040
TabIndex = 65
Top = 2040
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 41
Left = -74400
TabIndex = 64
Top = 2040
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 40
Left = -74760
TabIndex = 63
Top = 2040
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 39
Left = -71520
TabIndex = 62
Top = 1800
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 38
Left = -71880
TabIndex = 61
Top = 1800
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 37
Left = -72240
TabIndex = 60
Top = 1800
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 36
Left = -72600
TabIndex = 59
Top = 1800
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 35
Left = -72960
TabIndex = 58
Top = 1800
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 34
Left = -73320
TabIndex = 57
Top = 1800
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 33
Left = -73680
TabIndex = 56
Top = 1800
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 32
Left = -74040
TabIndex = 55
Top = 1800
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 31
Left = -74400
TabIndex = 54
Top = 1800
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 30
Left = -74760
TabIndex = 53
Top = 1800
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 29
Left = -71520
TabIndex = 52
Top = 1560
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 28
Left = -71880
TabIndex = 51
Top = 1560
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 27
Left = -72240
TabIndex = 50
Top = 1560
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 26
Left = -72600
TabIndex = 49
Top = 1560
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 25
Left = -72960
TabIndex = 48
Top = 1560
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 24
Left = -73320
TabIndex = 47
Top = 1560
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 23
Left = -73680
TabIndex = 46
Top = 1560
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 22
Left = -74040
TabIndex = 45
Top = 1560
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 21
Left = -74400
TabIndex = 44
Top = 1560
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 20
Left = -74760
TabIndex = 43
Top = 1560
Width = 255
End
Begin VB.TextBox txtGotoyear
Height = 285
Left = -73740
TabIndex = 40
Top = 600
Width = 975
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 9
Left = -71520
TabIndex = 39
Top = 1080
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 8
Left = -71880
TabIndex = 38
Top = 1080
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 7
Left = -72240
TabIndex = 37
Top = 1080
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 6
Left = -72600
TabIndex = 36
Top = 1080
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 5
Left = -72960
TabIndex = 35
Top = 1080
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 4
Left = -73320
TabIndex = 34
Top = 1080
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 3
Left = -73680
TabIndex = 33
Top = 1080
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 2
Left = -74040
TabIndex = 32
Top = 1080
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 1
Left = -74400
TabIndex = 31
Top = 1080
Width = 255
End
Begin VB.CheckBox chkDataexist
Enabled = 0 'False
Height = 255
Index = 0
Left = -74760
TabIndex = 30
Top = 1080
Width = 255
End
Begin VB.CommandButton cmd1Goto
Caption = "Go to year"
Height = 255
Left = -74880
TabIndex = 29
Top = 600
Width = 1035
End
Begin VB.CheckBox chk2SaveAccessdb
Caption = "Save Access db"
Height = 255
Left = 120
TabIndex = 28
ToolTipText = "Save individual data to a MS-Acess db. Note: Creatted files are HUGE and the process is SLOW."
Top = 600
Width = 2295
End
Begin VB.CheckBox chk2Price99
Caption = "Display in 1999 price level"
Height = 255
Left = 120
TabIndex = 27
ToolTipText = "When selected, statistics will be calculated in 1999 years prices"
Top = 1320
Width = 2295
End
Begin VB.TextBox txt2BASEparameterfilname
Height = 285
Left = 120
TabIndex = 25
Text = "base_parameters.xls"
ToolTipText = "Path to parameter file"
Top = 2760
Width = 3075
End
Begin VB.CommandButton cmd1Randomize
Caption = "Randomize"
Height = 255
Left = 3360
TabIndex = 24
ToolTipText = "Generate a new random number seed"
Top = 1560
Width = 915
End
Begin VB.TextBox txt2MYparameterfilname
Height = 285
Left = 120
TabIndex = 22
Text = "my_parameters.xls"
ToolTipText = "Path to parameter file"
Top = 2160
Width = 3075
End
Begin VB.CheckBox chk2Saveoutfiles
Caption = "Save output files"
Height = 255
Left = 120
TabIndex = 21
ToolTipText = "Save binary files each year. Makes it possibly to step back and forth"
Top = 360
Width = 1635
End
Begin VB.CheckBox chk2Saveincomehist
Caption = "Save income history"
Height = 255
Left = 120
TabIndex = 20
ToolTipText = "Saves each years income for individuals. Could be used for pension computations."
Top = 1080
Width = 2295
End
Begin VB.Frame Frame2
Caption = "Run"
Height = 1215
Left = -74820
TabIndex = 19
Top = 480
Width = 1935
Begin VB.CommandButton cmd1run
Caption = "Run"
Height = 375
Left = 120
TabIndex = 42
Top = 240
Width = 1695
End
Begin VB.ComboBox comb1Yearstorun
Height = 315
ItemData = "controlcenter.frx":00A1
Left = 120
List = "controlcenter.frx":00C9
TabIndex = 0
Text = "Init"
Top = 660
Width = 1695
End
End
Begin VB.TextBox txtWeight
Height = 285
Left = 3480
TabIndex = 16
Text = "1"
ToolTipText = "Scaling weight to population"
Top = 480
Width = 700
End
Begin VB.CheckBox chk2Savehist
Caption = "Save event history"
Height = 255
Left = 120
TabIndex = 13
ToolTipText = "Saves event history in a database ( birth ,death, etc)"
Top = 840
Width = 1695
End
Begin VB.Frame Frame1
Caption = "Statistics"
Height = 2295
Left = -72780
TabIndex = 12
Top = 480
Width = 1935
Begin VB.CommandButton cmdMicrodata
Caption = "View individuals"
Enabled = 0 'False
Height = 330
Left = 120
TabIndex = 93
ToolTipText = "Frequency tables"
Top = 1890
Width = 1695
End
Begin VB.CommandButton cmdKernel
Caption = "Distribution"
Enabled = 0 'False
Height = 330
Left = 120
TabIndex = 4
ToolTipText = "Kernel diagram"
Top = 1230
Width = 1695
End
Begin VB.CommandButton cmdDemo
Caption = "Demographics"
Enabled = 0 'False
Height = 330
Left = 120
TabIndex = 1
ToolTipText = "Demographic statistics"
Top = 240
Width = 1695
End
Begin VB.CommandButton cmdDemohist
Caption = "Population histogram"
Enabled = 0 'False
Height = 330
Left = 120
TabIndex = 2
Top = 570
Width = 1695
End
Begin VB.CommandButton cmdFreq
Caption = "Frequency"
Enabled = 0 'False
Height = 330
Left = 120
TabIndex = 5
ToolTipText = "Frequency tables"
Top = 1560
Width = 1695
End
Begin VB.CommandButton cmdUnivar
Caption = "Univariate statistics"
Enabled = 0 'False
Height = 330
Left = 120
TabIndex = 3
ToolTipText = "Mean, sum, min, max etc."
Top = 900
Width = 1695
End
End
Begin VB.Label Label5
Caption = "Run system"
Height = 195
Left = 2520
TabIndex = 101
Top = 1200
Width = 975
End
Begin VB.Label Label9
Caption = "Sampel size %"
Height = 255
Left = 2400
TabIndex = 95
Top = 840
Width = 1035
End
Begin VB.Label Label6
Caption = "Base parameter Excel file (demographics etc):"
Height = 195
Left = 120
TabIndex = 26
Top = 2520
Width = 3315
End
Begin VB.Label Label2
Caption = "My parameter Excel file (inflation, rents etc):"
Height = 195
Left = 120
TabIndex = 23
Top = 1920
Width = 3555
End
Begin VB.Label Label8
Caption = "Weight (100%)"
Height = 255
Left = 2400
TabIndex = 17
Top = 510
Width = 1035
End
End
Begin VB.Label Label1
Caption = "Time:"
ForeColor = &H00000000&
Height = 255
Left = 360
TabIndex = 41
Top = 4800
Width = 435
End
Begin VB.Image imgCalc
Height = 300
Left = 1800
Picture = "controlcenter.frx":0145
Stretch = -1 'True
Top = 4800
Width = 300
Visible = 0 'False
End
Begin VB.Label Label7
Caption = "Year:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 255
Left = 120
TabIndex = 15
Top = 3840
Width = 495
End
Begin VB.Label lblYear
ForeColor = &H00000000&
Height = 255
Left = 600
TabIndex = 14
Top = 3840
Width = 495
End
Begin VB.Label Label4
Caption = "Individuals:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1180
TabIndex = 11
Top = 3840
Width = 1000
End
Begin VB.Label Label3
Caption = "Households:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2780
TabIndex = 10
Top = 3840
Width = 1050
End
Begin VB.Label antalindivider
Height = 255
Left = 2180
TabIndex = 9
Top = 3840
Width = 600
End
Begin VB.Label antalhushåll
Height = 255
Left = 3860
TabIndex = 8
Top = 3840
Width = 600
End
Begin VB.Label label_tid
Caption = "0"
ForeColor = &H00000000&
Height = 255
Left = 960
TabIndex = 7
Top = 4800
Width = 495
End
End
Attribute VB_Name = "controlcenter"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function Beep Lib "kernel32" _
(ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub cmd_OutputData_Click()
frm_outputdata.Show
End Sub
Private Sub cmd_writedata_Click()
If init_done = 0 Then
MsgBox "SESIM must be initiated!"
Exit Sub
Else
frm_outputdata.Show
End If
End Sub
Private Sub cmdTest_Click()
Call test_fetch
End Sub
Private Sub Form_Click()
' The call below causes crashes TP 011023
' report_ed.Show
End Sub
Private Sub Form_Load()
'! Load Control Centre form
'Path to runtime parameters (not currently used)
'Data1.DatabaseName = sesimpath & "\parameterdata\sesimrun.mdb"
'Data1.Refresh
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sesimpath & "\parameterdata\sesimrun.mdb" & ";Persist Security Info=False"
Adodc1.RecordSource = "parm_scale"
Adodc1.Refresh
With Me
.Height = 4500
.Width = 4545
End With
controlcenter.lblYear = base_year + model_time
Me.Show
' Menu items
MDIForm1.menu_loadwindowsstate.enabled = True
MDIForm1.menu_savewindowsstate.enabled = True
Call get_options
cmd1run.SetFocus
SelIsOpen = False 'No selection window open yet
End Sub
'********************************
'*** TAB 1
'********************************
Public Sub cmd1run_Click()
'! Run button is pressed
Screen.MousePointer = vbHourglass
If init_done = 0 Then Call Initsesim
If cmd1run.Caption = "Stop" Then
cmd1run.Caption = "Will stop. Wait..."
cmd1run.Refresh
cmd1run.Tag = 1
Exit Sub
End If
If cmd1run.Caption <> "Run" Then Exit Sub
cmd1run.Caption = "Stop"
' imgCalc.Visible = True
' imgCalc.Refresh
' How many years to run?
' Fetch from combo box
Dim årtxt As String
Dim blank_pos As String
Dim antal_år As Long
årtxt = comb1Yearstorun.text
If årtxt = "Init" Then
antal_år = 0
comb1Yearstorun.text = "1 year"
Else
blank_pos = InStr(1, årtxt, " ", 1)
antal_år = val(Left$(årtxt, blank_pos - 1))
End If
Dim i As Long
Dim t0 As Date, t1 As Date
For i = 1 To antal_år
t0 = Time()
cmd1run.Tag = 0
status "----------"
Call forward_one_year
' Update count
antalindivider.Caption = m_icount
antalhushåll.Caption = m_hcount
'Update viewers
Call update_viewers
' Write output data (selection viewer has to be updated first)
Call Write_Output_Data
t1 = Time()
status "Elapsed time: " & CStr(Minute(t1 - t0) * 60 + Second(t1 - t0)) & " seconds"
DoEvents
If cmd1run.Tag = 1 Then Exit For
If m_icount < 1 Or m_hcount < 1 Then Exit For
Next
' Beep 300, 300
cmd1run.Caption = "Run"
' imgCalc.Visible = False
' imgCalc.Refresh
Screen.MousePointer = vbDefault
End Sub
'********************************
Public Sub cmdDemo_Click()
'! Demographic table
Dim dem
cmdDemo.enabled = False
Set dem = monitor_demographics
monitor_demographics.Show
coll_view.add dem, "mdem"
dem.Tag = "mdem"
End Sub
'********************************
Public Sub cmdDemohist_Click()
'! Population histogram
Dim demhist
cmdDemohist.enabled = False
Set demhist = monitor_demohist
demhist.Show
coll_view.add demhist, "mdemhist"
End Sub
'********************************
Public Sub cmdUnivar_Click()
'! Univariate statistics
Dim new_uni As New monitor_univariate
Static antal_uni As Integer
new_uni.Show
antal_uni = antal_uni + 1
new_uni.Tag = "uni" & CStr(antal_uni)
coll_view.add new_uni, "uni" & CStr(antal_uni)
End Sub
'********************************
Public Sub cmdKernel_Click()
'! Kernel diagram
Dim new_ker As New monitor_kernel
Static antal_ker As Integer
new_ker.Show
antal_ker = antal_ker + 1
new_ker.Tag = "ker" & CStr(antal_ker)
coll_view.add new_ker, "ker" & CStr(antal_ker)
End Sub
'********************************
Public Sub cmdFreq_Click()
'! Frequency tables
Dim new_freq As New monitor_freq
Static antal_freq As Integer
new_freq.Show
antal_freq = antal_freq + 1
new_freq.Tag = "freq" & CStr(antal_freq)
coll_view.add new_freq, "freq" & CStr(antal_freq)
End Sub
Private Sub cmdScript_Click()
'! Scripting
Dim new_script As New report_ed
Static antal_script As Integer
new_script.Show
antal_script = antal_script + 1
new_script.Tag = "script" & CStr(antal_script)
coll_view.add new_script, "script" & CStr(antal_script)
End Sub
'*****************************************************
'*** Form for multiple global selections
'*** NOTE: frmGlobalSelection is NOT added to coll_view
'*** collection.
'*****************************************************
Public Sub CmdGlobalSelection_Click()
SelIsOpen = True
frmGlobalSelection.Show
End Sub
'********************************
'*** TAB 2 Options
'********************************
' Save event history
Private Sub chk2Savehist_Click()
If chk2Savehist.value = 1 Then
lifehist = True
Else
lifehist = False
End If
End Sub
' Save income history
Private Sub chk2Saveincomehist_Click()
If chk2Saveincomehist = 1 Then
inchist.enabled = True
Else
inchist.enabled = False
End If
End Sub
' Random numbers
Private Sub cmd1Randomize_Click()
Randomize
' Flag. 0=same random seed. 1=different seed.
random = 1
Printdok ("Randomized: New random number seed generated")
End Sub
Private Sub Form_Resize()
' With Me
' .Height = 5300
' .Width = 4545
' End With
End Sub
'*******************************************************
'*** TAB 3 Step fort and back (if binary files is saved)
'*******************************************************
Private Sub chkDataexist_Click(index As Integer)
If chkDataexist(index).value = 1 Then
txtGotoyear.text = base_year + index
cmd1Goto_Click
chkDataexist(index).value = 0
End If
End Sub
Public Sub cmd1Goto_Click()
If Not IsNumeric(txtGotoyear.text) Then
status "Not a valid year"
Exit Sub
End If
If binary_files_exist(CInt(txtGotoyear.text - base_year)) = False Then
status "Not a valid year"
Exit Sub
End If
If CInt(txtGotoyear.text) = base_year + model_time Then Exit Sub
model_time = CInt(txtGotoyear.text - base_year)
status "Change to time" & CStr(model_time)
Call read_data(model_time)
antalindivider.Caption = m_icount
antalhushåll.Caption = m_hcount
'Uppdatera ev viewers
Call update_viewers
status "Done"
End Sub
'********************************
'*** TAB 4 - Runtime parameters
'********************************
''********************************
''*** TAB 5 - Experimental viewers
''********************************
Public Sub cmdStatistics_Click()
'! New statistics
Dim new_stat As New monitor_stat
Static antal_stat As Integer
new_stat.Show
antal_stat = antal_stat + 1
new_stat.Tag = "stat" & CStr(antal_stat)
coll_view.add new_stat, "stat" & CStr(antal_stat)
End Sub
'Private Sub cmd3Lifeevents_Click()
' Dim new_db As New monitor_db
' Dim file As String
' file = sesimpath & "\microdata\event_history.mdb"
' If Dir(file) = "" Then
' MsgBox "Can't find file:" & vbCrLf & file
' Exit Sub
' End If
' new_db.Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & file & ";Persist Security Info=False"
' 'new_db.dbfilename = file
' new_db.Adodc2.RecordSource = "hist"
' 'new_db.dbtable = "hist"
' new_db.Show
'End Sub
'Private Sub cmdviewinchist_Click()
' Dim new_db As New monitor_db
' Dim file As String
' file = sesimpath & "\microdata\income_history.mdb"
' If Dir(file) = "" Then
' MsgBox "Can't find file:" & vbCrLf & file
' Exit Sub
' End If
' new_db.dbfilename = file
' new_db.dbtable = "inchist"
' new_db.Show
'End Sub
'Private Sub cmdShowMSmicrodata_Click()
' Dim new_db As New monitor_db
' Dim file As String
' file = sesimpath & "\microdata\microdata.mdb"
' If Dir(file) = "" Then
' MsgBox "Can't find file:" & vbCrLf & file
' Exit Sub
' End If
' new_db.dbfilename = file
' new_db.dbtable = "individuals"
' new_db.Show
'End Sub
''Private Sub cmd3Micro_Click()
Public Sub cmdMicrodata_Click()
Dim new_mic As New monitor_microdata
Static antal_mic As Integer
new_mic.Show
antal_mic = antal_mic + 1
new_mic.Tag = "mic" & CStr(antal_mic)
coll_view.add new_mic, "mic" & CStr(antal_mic)
End Sub
'*****************************************************
'*** Contingency table viewer
'*****************************************************
Private Sub cmd_contingency_Click()
If init_done = 0 Then
MsgBox "SESIM has to be initialized!"
Else
Static n_of_contingency
Dim obj_contingency As New form_contingency
n_of_contingency = n_of_contingency + 1
obj_contingency.Show
obj_contingency.Tag = "contingency" & CStr(n_of_contingency)
coll_view.add obj_contingency, "contingency" & CStr(n_of_contingency)
End If
End Sub
'********************************
'*** General
'********************************
Private Sub SSTab1_Click(PreviousTab As Integer)
gridparm.Columns(0).Width = 1200
gridparm.Columns(1).Width = 600
gridparm.Columns(2).Width = 400
gridparm.Columns(3).Width = 400
gridparm.Columns(4).Width = 600
End Sub
' Reread parameters
Private Sub gridParm_AfterUpdate()
Call read_scaleparm(0)
End Sub
'********************************************************
' Sub update_viewers sends a random number to object Text1
' defined in all viewers. Every viewer updates itself
' when the contents of Text1 changes.
'********************************************************
Public Sub update_viewers()
Dim v_s
controlcenter.label_tid.Caption = model_time
controlcenter.lblYear = base_year + model_time
' If a selection exists then update the selection
' vector before updating the viewers
If SelIsOpen Then
frmGlobalSelection.Text1 = CStr(Rnd)
For Each v_s In coll_view
v_s.Text1.text = CStr(Rnd)
DoEvents
Next
Else
' If no selection exists it implies that all individuals and
' households are selected
Dim i As Long
For i = 1 To m_icount
select_i(i) = 1
i_selected(i) = 1
If i <= m_hcount Then
select_h(i) = 1
h_selected(i) = 1
End If
Next i
For Each v_s In coll_view
v_s.Text1.text = CStr(Rnd)
DoEvents
Next
End If
End Sub
Private Sub cmdBrowsepar1_Click()
Dim txtFile As String
txtFile = get_par_file()
If txtFile <> "" Then txt2MYparameterfilname.text = txtFile
End Sub
Private Sub cmdBrowsepar2_Click()
Dim txtFile As String
txtFile = get_par_file()
If txtFile <> "" Then txt2BASEparameterfilname.text = txtFile
End Sub
Private Function get_par_file()
Dim dirname As String
' Save name of current directory
dirname = CurDir()
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
CommonDialog1.Filter = "Excel Files (*.xls)|*.xls|All Files(*.*)|*.*"
' Specify default filter
CommonDialog1.FilterIndex = 1
' Display the Open dialog box
CommonDialog1.ShowOpen
' Display name of selected file
'MsgBox CommonDialog1.FileName
get_par_file = CommonDialog1.filename
' Restore current directory
ChDrive (Left(dirname, 1))
ChDir (dirname)
Exit Function
ErrHandler:
'User pressed the Cancel button
Exit Function
End Function
Private Sub cmdSaveOptions_Click()
Dim fnum As Integer
fnum = FreeFile
Open sesimpath & "\parameterdata\sesim.ini" For Output As fnum
Print #fnum, "chk2Saveoutfiles=" & chk2Saveoutfiles.value
Print #fnum, "chk2SaveAccessdb=" & chk2SaveAccessdb.value
Print #fnum, "chk2Savehist=" & chk2Savehist.value
Print #fnum, "chk2Saveincomehist=" & chk2Saveincomehist.value
Print #fnum, "chk2Price99=" & chk2Price99.value
Print #fnum, "txtWeight=" & txtWeight.text
Print #fnum, "txtPercentofsample=" & txtPercentofsample.text
Print #fnum, "txt2Runsystem=" & txt2Runsystem.text
Print #fnum, "txt2MYparameterfilname=" & txt2MYparameterfilname.text
Print #fnum, "txt2BASEparameterfilname=" & txt2BASEparameterfilname.text
Print #fnum, "chkRetire65=" & chkRetire65.value
Print #fnum, "txtRetire=" & txtRetire.text
Print #fnum, "chkRandomize=" & chkRandomize.value
Close fnum
status "Options saved"
get_options
End Sub
Public Sub get_options()
Dim fnum As Integer
Dim txtLine As String
Dim txtSplit
If Dir(sesimpath & "\parameterdata\sesim.ini") <> "" Then
fnum = FreeFile
Open sesimpath & "\parameterdata\sesim.ini" For Input As fnum
Do While Not EOF(fnum)
Line Input #fnum, txtLine
txtSplit = Split(txtLine, "=")
If txtSplit(0) = "chk2Saveoutfiles" Then chk2Saveoutfiles.value = txtSplit(1)
If txtSplit(0) = "chk2SaveAccessdb" Then chk2SaveAccessdb.value = txtSplit(1)
If txtSplit(0) = "chk2Savehist" Then chk2Savehist.value = txtSplit(1)
If txtSplit(0) = "chk2Saveincomehist" Then chk2Saveincomehist.value = txtSplit(1)
If txtSplit(0) = "chk2Price99" Then chk2Price99.value = txtSplit(1)
If txtSplit(0) = "txtWeight" Then txtWeight.text = txtSplit(1)
If txtSplit(0) = "txtPercentofsample" Then txtPercentofsample.text = txtSplit(1)
If txtSplit(0) = "txt2Runsystem" Then txt2Runsystem.text = txtSplit(1)
If txtSplit(0) = "txt2MYparameterfilname" Then txt2MYparameterfilname.text = txtSplit(1)
If txtSplit(0) = "txt2BASEparameterfilname" Then txt2BASEparameterfilname.text = txtSplit(1)
If txtSplit(0) = "chkRetire65" Then chkRetire65.value = txtSplit(1)
If txtSplit(0) = "txtRetire65" Then txtRetire.text = txtSplit(1)
If txtSplit(0) = "chkRandomize" Then chkRandomize.value = txtSplit(1)
Loop
Close fnum
Else
chk2Saveoutfiles = 0
chk2SaveAccessdb.value = 0
chk2Savehist.value = 0
chk2Saveincomehist.value = 0
chk2Price99.value = 0
txtWeight.text = 85
txtPercentofsample.text = 1
txt2Runsystem.text = "2"
txt2MYparameterfilname.text = "source\default_parameters_2.xls"
txt2BASEparameterfilname.text = "source\default_parameters_1.xls"
chkRetire65 = 0
chkRandomize = 0
Call cmdSaveOptions_Click
End If
End Sub
Private Sub txtRetire_Validate(KeepFocus As Boolean)
If Not IsNumeric(txtRetire.text) Or IsEmpty(txtRetire.text) Then
KeepFocus = True
MsgBox "Only pension between 61 and 70 years allowed"
txtRetire.text = 65
Else
If CInt(txtRetire.text) < 61 Or CInt(txtRetire.text) > 70 Then
KeepFocus = True
MsgBox "Only pension between 61 and 70 years allowed"
txtRetire.text = 65
End If
End If
End Sub
Private Sub txtRetire_lostfocus()
If Not IsNumeric(txtRetire.text) Or IsEmpty(txtRetire.text) Then
MsgBox "Only pension between 61 and 70 years allowed"
txtRetire.text = 65
Else
If CInt(txtRetire.text) < 61 Or CInt(txtRetire.text) > 70 Then
MsgBox "Only pension between 61 and 70 years allowed"
txtRetire.text = 65
End If
End If
End Sub
Private Sub txtWeight_Change()
On Error GoTo fel
m_weight = txtPercentofsample.text
fel:
m_weight = 0
End Sub