VERSION 5.00 Begin VB.Form frmGlobalSelectionHelp Caption = "About the SESIM selection" ClientHeight = 5355 ClientLeft = 60 ClientTop = 345 ClientWidth = 6885 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 5355 ScaleWidth = 6885 StartUpPosition = 3 'Windows Default Begin VB.TextBox Text1 Height = 4575 Left = 120 MultiLine = -1 'True TabIndex = 1 Text = "frmGlobalSelectionHelp.frx":0000 Top = 120 Width = 6615 End Begin VB.CommandButton Command1 Caption = "Done" Height = 495 Left = 2760 TabIndex = 0 Top = 4800 Width = 1095 End End Attribute VB_Name = "frmGlobalSelectionHelp" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Option Base 1 Private Sub Command1_Click() Unload Me End Sub
Private Sub Form_Load() Dim HlpTxt As String HlpTxt = "When using the viewers to analyse output data the selection mechanism" & _ " is used to decompose the analysis into subsets of the total model population." & _ " Note that the model population remains unchanged, it is only the output data that" & _ " is affected." & vbCrLf & vbCrLf & _ "Selections can be formulated using individual- and household level conditions." & _ vbCrLf & vbCrLf & _ "A selection is expressed on the form [variable operator value]." & vbCrLf & vbCrLf & _ "When multiple selection statements are submitted they are concatenated using a" & _ " logical AND-operator (i.e. the intersection of the conditions)." & vbCrLf & vbCrLf & _ "Initially all individuals and households are selected and hence included in the analysis." & _ vbCrLf & vbCrLf & "Individual- and household level conditions interact in the following way:" & _ vbCrLf & "1) After adding an individual level condition all households containing at least one" & _ " selected individual remains selected." & vbCrLf & "2) After adding a household" & _ " level condition only previously selected individuals that is living in households" & _ " that passes the new household condition remain selected." Text1.text = HlpTxt End Sub