home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / win3 / programr / vbasic / insure2.exe / INSURED.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-07-22  |  26.8 KB  |  806 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Application for Life Insurance"
  6.    ClientHeight    =   6315
  7.    ClientLeft      =   1185
  8.    ClientTop       =   1425
  9.    ClientWidth     =   7590
  10.    ControlBox      =   0   'False
  11.    ForeColor       =   &H00000000&
  12.    Height          =   6720
  13.    Left            =   1125
  14.    LinkMode        =   1  'Source
  15.    LinkTopic       =   "Form1"
  16.    MaxButton       =   0   'False
  17.    MinButton       =   0   'False
  18.    ScaleHeight     =   6315
  19.    ScaleWidth      =   7590
  20.    Top             =   1080
  21.    Width           =   7710
  22.    Begin SSPanel Panel3D2 
  23.       Alignment       =   7  'Center - MIDDLE
  24.       AutoSize        =   0  'None
  25.       BackColor       =   &H00C0C0C0&
  26.       BevelInner      =   1  'Inset
  27.       BevelOuter      =   0  'None
  28.       BevelWidth      =   3
  29.       BorderWidth     =   3
  30.       FloodColor      =   &H00FF0000&
  31.       FloodShowPct    =   -1  'True
  32.       FloodType       =   0  'None
  33.       Font3D          =   2  'Raised w/heavy shading
  34.       ForeColor       =   &H00000000&
  35.       Height          =   1140
  36.       Left            =   330
  37.       Outline         =   0   'False
  38.       RoundedCorners  =   -1  'True
  39.       ShadowColor     =   0  'Dark Grey
  40.       TabIndex        =   17
  41.       Top             =   5730
  42.       Width           =   9000
  43.       Begin SSCommand Command3D2 
  44.          AutoSize        =   0  'None
  45.          BevelWidth      =   2
  46.          Caption         =   "Load Form"
  47.          Font3D          =   3  'Inset w/light shading
  48.          ForeColor       =   &H00000000&
  49.          Height          =   870
  50.          Left            =   7185
  51.          Outline         =   -1  'True
  52.          Picture         =   INSURED.FRX:0000
  53.          RoundedCorners  =   -1  'True
  54.          TabIndex        =   41
  55.          Top             =   135
  56.          Width           =   1575
  57.       End
  58.       Begin SSCommand Command3D6 
  59.          AutoSize        =   0  'None
  60.          BevelWidth      =   2
  61.          Caption         =   "Save Form"
  62.          Font3D          =   3  'Inset w/light shading
  63.          ForeColor       =   &H00000000&
  64.          Height          =   870
  65.          Left            =   5445
  66.          Outline         =   -1  'True
  67.          Picture         =   INSURED.FRX:0302
  68.          RoundedCorners  =   -1  'True
  69.          TabIndex        =   7
  70.          Top             =   135
  71.          Width           =   1575
  72.       End
  73.       Begin SSCommand Command3D5 
  74.          AutoSize        =   0  'None
  75.          BevelWidth      =   2
  76.          Caption         =   "Report"
  77.          Font3D          =   3  'Inset w/light shading
  78.          ForeColor       =   &H00000000&
  79.          Height          =   870
  80.          Left            =   3720
  81.          Outline         =   -1  'True
  82.          Picture         =   INSURED.FRX:0604
  83.          RoundedCorners  =   -1  'True
  84.          TabIndex        =   6
  85.          Top             =   135
  86.          Width           =   1575
  87.       End
  88.       Begin SSCommand Command3D4 
  89.          AutoSize        =   1  'Adjust Picture Size To Button
  90.          BevelWidth      =   2
  91.          Caption         =   "Medical History"
  92.          Font3D          =   3  'Inset w/light shading
  93.          ForeColor       =   &H00000000&
  94.          Height          =   870
  95.          Left            =   1980
  96.          Outline         =   -1  'True
  97.          Picture         =   INSURED.FRX:0906
  98.          RoundedCorners  =   -1  'True
  99.          TabIndex        =   5
  100.          Top             =   135
  101.          Width           =   1575
  102.       End
  103.       Begin SSCommand Command3D1 
  104.          AutoSize        =   1  'Adjust Picture Size To Button
  105.          BevelWidth      =   2
  106.          Caption         =   "Page 2"
  107.          Font3D          =   3  'Inset w/light shading
  108.          ForeColor       =   &H00000000&
  109.          Height          =   870
  110.          Left            =   270
  111.          Outline         =   -1  'True
  112.          Picture         =   INSURED.FRX:0C08
  113.          RoundedCorners  =   -1  'True
  114.          TabIndex        =   31
  115.          Top             =   135
  116.          Width           =   1575
  117.       End
  118.    End
  119.    Begin SSFrame Frame3D2 
  120.       Alignment       =   0  'Left Justify
  121.       Caption         =   "2. Plan."
  122.       Font3D          =   1  'Raised w/light shading
  123.       ForeColor       =   &H00000000&
  124.       Height          =   1215
  125.       Left            =   360
  126.       ShadowColor     =   0  'Dark Grey
  127.       ShadowStyle     =   0  'Inset
  128.       TabIndex        =   0
  129.       Top             =   4485
  130.       Width           =   8895
  131.       Begin ComboBox Combo3 
  132.          BackColor       =   &H00C0C0C0&
  133.          FontBold        =   -1  'True
  134.          FontItalic      =   0   'False
  135.          FontName        =   "MS Sans Serif"
  136.          FontSize        =   13.5
  137.          FontStrikethru  =   0   'False
  138.          FontUnderline   =   0   'False
  139.          Height          =   480
  140.          Left            =   360
  141.          TabIndex        =   28
  142.          Top             =   540
  143.          Width           =   4575
  144.       End
  145.       Begin SSFrame Frame3D3 
  146.          Alignment       =   0  'Left Justify
  147.          Caption         =   "Amount to Insure"
  148.          Font3D          =   0  'None
  149.          ForeColor       =   &H00000000&
  150.          Height          =   840
  151.          Left            =   5295
  152.          ShadowColor     =   0  'Dark Grey
  153.          ShadowStyle     =   1  'Raised
  154.          TabIndex        =   8
  155.          Top             =   195
  156.          Width           =   3360
  157.          Begin VBedit BEdit8 
  158.             BackColor       =   &H00C0C0C0&
  159.             CellHeight      =   480
  160.             CellWidth       =   360
  161.             CharSet         =   16388
  162.             CombBaseLine    =   390
  163.             CombEndHeight   =   120
  164.             CombEndMarker   =   0   'False
  165.             CombHeight      =   60
  166.             FontBold        =   -1  'True
  167.             FontItalic      =   0   'False
  168.             FontName        =   "MS Sans Serif"
  169.             FontSize        =   18
  170.             FontStrikethru  =   0   'False
  171.             FontUnderline   =   0   'False
  172.             Height          =   495
  173.             InflateBottom   =   180
  174.             InflateLeft     =   180
  175.             InflateRight    =   180
  176.             InflateTop      =   240
  177.             Left            =   1695
  178.             TabIndex        =   4
  179.             Top             =   300
  180.             Version         =   268435458
  181.             Width           =   1335
  182.          End
  183.          Begin VBedit BEdit7 
  184.             BackColor       =   &H00C0C0C0&
  185.             CellHeight      =   480
  186.             CellWidth       =   360
  187.             CharSet         =   16388
  188.             CombBaseLine    =   390
  189.             CombEndHeight   =   120
  190.             CombEndMarker   =   0   'False
  191.             CombHeight      =   60
  192.             FontBold        =   -1  'True
  193.             FontItalic      =   0   'False
  194.             FontName        =   "MS Sans Serif"
  195.             FontSize        =   18
  196.             FontStrikethru  =   0   'False
  197.             FontUnderline   =   0   'False
  198.             Height          =   495
  199.             InflateBottom   =   180
  200.             InflateLeft     =   180
  201.             InflateRight    =   180
  202.             InflateTop      =   240
  203.             Left            =   360
  204.             TabIndex        =   3
  205.             Top             =   300
  206.             Version         =   268435458
  207.             Width           =   1335
  208.          End
  209.          Begin Label Label12 
  210.             BackColor       =   &H00C0C0C0&
  211.             Caption         =   ","
  212.             FontBold        =   -1  'True
  213.             FontItalic      =   0   'False
  214.             FontName        =   "MS Sans Serif"
  215.             FontSize        =   24
  216.             FontStrikethru  =   0   'False
  217.             FontUnderline   =   0   'False
  218.             Height          =   525
  219.             Left            =   1590
  220.             TabIndex        =   19
  221.             Top             =   270
  222.             Width           =   105
  223.          End
  224.          Begin Label Label11 
  225.             BackColor       =   &H00C0C0C0&
  226.             Caption         =   "$"
  227.             FontBold        =   -1  'True
  228.             FontItalic      =   0   'False
  229.             FontName        =   "MS Sans Serif"
  230.             FontSize        =   18
  231.             FontStrikethru  =   0   'False
  232.             FontUnderline   =   0   'False
  233.             Height          =   375
  234.             Left            =   165
  235.             TabIndex        =   15
  236.             Top             =   315
  237.             Width           =   255
  238.          End
  239.       End
  240.       Begin Label Label7 
  241.          BackColor       =   &H00C0C0C0&
  242.          Caption         =   "a. Type of Policy"
  243.          Height          =   255
  244.          Left            =   360
  245.          TabIndex        =   16
  246.          Top             =   225
  247.          Width           =   2895
  248.       End
  249.    End
  250.    Begin SSFrame Frame3D1 
  251.       Alignment       =   0  'Left Justify
  252.       Caption         =   "1. Primary Proposed Insured."
  253.       Font3D          =   1  'Raised w/light shading
  254.       ForeColor       =   &H00000000&
  255.       Height          =   3825
  256.       Left            =   360
  257.       ShadowColor     =   0  'Dark Grey
  258.       ShadowStyle     =   0  'Inset
  259.       TabIndex        =   9
  260.       Top             =   675
  261.       Width           =   8895
  262.       Begin ComboBox Combo2 
  263.          BackColor       =   &H00C0C0C0&
  264.          FontBold        =   -1  'True
  265.          FontItalic      =   0   'False
  266.          FontName        =   "MS Sans Serif"
  267.          FontSize        =   13.5
  268.          FontStrikethru  =   0   'False
  269.          FontUnderline   =   0   'False
  270.          Height          =   480
  271.          Left            =   5580
  272.          TabIndex        =   21
  273.          Top             =   3180
  274.          Width           =   1035
  275.       End
  276.       Begin ComboBox Combo1 
  277.          BackColor       =   &H00C0C0C0&
  278.          FontBold        =   -1  'True
  279.          FontItalic      =   0   'False
  280.          FontName        =   "MS Sans Serif"
  281.          FontSize        =   13.5
  282.          FontStrikethru  =   0   'False
  283.          FontUnderline   =   0   'False
  284.          Height          =   480
  285.          Left            =   3705
  286.          TabIndex        =   20
  287.          Top             =   3150
  288.          Width           =   1035
  289.       End
  290.       Begin Frame Frame1 
  291.          BackColor       =   &H00C0C0C0&
  292.          Caption         =   "d. Date of Birth"
  293.          Height          =   750
  294.          Left            =   360
  295.          TabIndex        =   22
  296.          Top             =   2940
  297.          Width           =   2805
  298.          Begin VBedit BEdit3 
  299.             BackColor       =   &H00C0C0C0&
  300.             CellHeight      =   480
  301.             CellWidth       =   360
  302.             CharSet         =   16388
  303.             CombBaseLine    =   390
  304.             CombEndHeight   =   120
  305.             CombEndMarker   =   0   'False
  306.             CombHeight      =   60
  307.             FontBold        =   -1  'True
  308.             FontItalic      =   0   'False
  309.             FontName        =   "MS Sans Serif"
  310.             FontSize        =   18
  311.             FontStrikethru  =   0   'False
  312.             FontUnderline   =   0   'False
  313.             Height          =   495
  314.             InflateBottom   =   180
  315.             InflateLeft     =   180
  316.             InflateRight    =   180
  317.             InflateTop      =   240
  318.             Left            =   1935
  319.             TabIndex        =   27
  320.             Top             =   240
  321.             Version         =   268435458
  322.             Width           =   780
  323.          End
  324.          Begin VBedit BEdit2 
  325.             BackColor       =   &H00C0C0C0&
  326.             CellHeight      =   480
  327.             CellWidth       =   360
  328.             CharSet         =   16388
  329.             CombBaseLine    =   390
  330.             CombEndHeight   =   120
  331.             CombEndMarker   =   0   'False
  332.             CombHeight      =   60
  333.             FontBold        =   -1  'True
  334.             FontItalic      =   0   'False
  335.             FontName        =   "MS Sans Serif"
  336.             FontSize        =   18
  337.             FontStrikethru  =   0   'False
  338.             FontUnderline   =   0   'False
  339.             Height          =   495
  340.             InflateBottom   =   180
  341.             InflateLeft     =   180
  342.             InflateRight    =   180
  343.             InflateTop      =   240
  344.             Left            =   1005
  345.             TabIndex        =   26
  346.             Top             =   240
  347.             Version         =   268435458
  348.             Width           =   780
  349.          End
  350.          Begin VBedit BEdit5 
  351.             BackColor       =   &H00C0C0C0&
  352.             CellHeight      =   480
  353.             CellWidth       =   360
  354.             CharSet         =   16388
  355.             CombBaseLine    =   390
  356.             CombEndHeight   =   120
  357.             CombEndMarker   =   0   'False
  358.             CombHeight      =   60
  359.             FontBold        =   -1  'True
  360.             FontItalic      =   0   'False
  361.             FontName        =   "MS Sans Serif"
  362.             FontSize        =   18
  363.             FontStrikethru  =   0   'False
  364.             FontUnderline   =   0   'False
  365.             Height          =   495
  366.             InflateBottom   =   180
  367.             InflateLeft     =   180
  368.             InflateRight    =   180
  369.             InflateTop      =   240
  370.             Left            =   60
  371.             TabIndex        =   23
  372.             Top             =   240
  373.             Version         =   268435458
  374.             Width           =   780
  375.          End
  376.          Begin Label Label8 
  377.             BackColor       =   &H00C0C0C0&
  378.             Caption         =   "/"
  379.             FontBold        =   -1  'True
  380.             FontItalic      =   0   'False
  381.             FontName        =   "MS Sans Serif"
  382.             FontSize        =   24
  383.             FontStrikethru  =   0   'False
  384.             FontUnderline   =   0   'False
  385.             Height          =   480
  386.             Left            =   1800
  387.             TabIndex        =   25
  388.             Top             =   225
  389.             Width           =   180
  390.          End
  391.          Begin Label Label4 
  392.             BackColor       =   &H00C0C0C0&
  393.             Caption         =   "/"
  394.             FontBold        =   -1  'True
  395.             FontItalic      =   0   'False
  396.             FontName        =   "MS Sans Serif"
  397.             FontSize        =   24
  398.             FontStrikethru  =   0   'False
  399.             FontUnderline   =   0   'False
  400.             Height          =   480
  401.             Left            =   855
  402.             TabIndex        =   24
  403.             Top             =   225
  404.             Width           =   180
  405.          End
  406.       End
  407.       Begin VHedit HEdit2 
  408.          BackColor       =   &H00C0C0C0&
  409.          DelayRecog      =   -1  'True
  410.          FontBold        =   -1  'True
  411.          FontItalic      =   0   'False
  412.          FontName        =   "MS Sans Serif"
  413.          FontSize        =   13.5
  414.          FontStrikethru  =   0   'False
  415.          FontUnderline   =   0   'False
  416.          Height          =   735
  417.          InflateBottom   =   270
  418.          InflateLeft     =   270
  419.          InflateRight    =   270
  420.          InflateTop      =   270
  421.          Left            =   360
  422.          TabIndex        =   2
  423.          Top             =   2040
  424.          Version         =   268435458
  425.          Width           =   8175
  426.       End
  427.       Begin SSFrame Frame3D5 
  428.          Alignment       =   0  'Left Justify
  429.          Caption         =   "Marital Status"
  430.          Font3D          =   0  'None
  431.          ForeColor       =   &H00000000&
  432.          Height          =   555
  433.          Left            =   1635
  434.          ShadowColor     =   0  'Dark Grey
  435.          ShadowStyle     =   1  'Raised
  436.          TabIndex        =   35
  437.          Top             =   1125
  438.          Width           =   6885
  439.          Begin SSOption Option3D3 
  440.             Alignment       =   0  'Text to the Right
  441.             Caption         =   "Widowed"
  442.             Font3D          =   0  'None
  443.             ForeColor       =   &H00000000&
  444.             Height          =   255
  445.             Left            =   5550
  446.             TabIndex        =   38
  447.             Top             =   225
  448.             Value           =   0   'False
  449.             Width           =   1080
  450.          End
  451.          Begin SSOption Option3D4 
  452.             Alignment       =   0  'Text to the Right
  453.             Caption         =   "Separated"
  454.             Font3D          =   0  'None
  455.             ForeColor       =   &H00000000&
  456.             Height          =   255
  457.             Left            =   4035
  458.             TabIndex        =   39
  459.             Top             =   225
  460.             Value           =   0   'False
  461.             Width           =   1155
  462.          End
  463.          Begin SSOption Option3D7 
  464.             Alignment       =   0  'Text to the Right
  465.             Caption         =   "Divorced"
  466.             Font3D          =   0  'None
  467.             ForeColor       =   &H00000000&
  468.             Height          =   255
  469.             Left            =   2730
  470.             TabIndex        =   40
  471.             Top             =   240
  472.             Value           =   0   'False
  473.             Width           =   1050
  474.          End
  475.          Begin SSOption Option3D1 
  476.             Alignment       =   0  'Text to the Right
  477.             Caption         =   "Married"
  478.             Font3D          =   0  'None
  479.             ForeColor       =   &H00000000&
  480.             Height          =   255
  481.             Left            =   1455
  482.             TabIndex        =   36
  483.             Top             =   255
  484.             Value           =   0   'False
  485.             Width           =   930
  486.          End
  487.          Begin SSOption Option3D2 
  488.             Alignment       =   0  'Text to the Right
  489.             Caption         =   "Single"
  490.             Font3D          =   0  'None
  491.             ForeColor       =   &H00000000&
  492.             Height          =   255
  493.             Left            =   225
  494.             TabIndex        =   37
  495.             Top             =   240
  496.             Value           =   0   'False
  497.             Width           =   810
  498.          End
  499.       End
  500.       Begin SSFrame Frame3D4 
  501.          Alignment       =   0  'Left Justify
  502.          Caption         =   "Sex"
  503.          Font3D          =   0  'None
  504.          ForeColor       =   &H00000000&
  505.          Height          =   555
  506.          Left            =   360
  507.          ShadowColor     =   0  'Dark Grey
  508.          ShadowStyle     =   1  'Raised
  509.          TabIndex        =   32
  510.          Top             =   1125
  511.          Width           =   1080
  512.          Begin SSOption Option3D6 
  513.             Alignment       =   0  'Text to the Right
  514.             Caption         =   "F"
  515.             Font3D          =   0  'None
  516.             ForeColor       =   &H00000000&
  517.             Height          =   255
  518.             Left            =   615
  519.             TabIndex        =   34
  520.             Top             =   240
  521.             Value           =   0   'False
  522.             Width           =   390
  523.          End
  524.          Begin SSOption Option3D5 
  525.             Alignment       =   0  'Text to the Right
  526.             Caption         =   "M"
  527.             Font3D          =   0  'None
  528.             ForeColor       =   &H00000000&
  529.             Height          =   255
  530.             Left            =   150
  531.             TabIndex        =   33
  532.             Top             =   240
  533.             Value           =   0   'False
  534.             Width           =   435
  535.          End
  536.       End
  537.       Begin VBedit BEdit1 
  538.          BackColor       =   &H00C0C0C0&
  539.          CellHeight      =   480
  540.          CellWidth       =   360
  541.          CharSet         =   16651
  542.          CombBaseLine    =   480
  543.          CombEndHeight   =   120
  544.          CombHeight      =   60
  545.          FontBold        =   -1  'True
  546.          FontItalic      =   0   'False
  547.          FontName        =   "MS Sans Serif"
  548.          FontSize        =   18
  549.          FontStrikethru  =   0   'False
  550.          FontUnderline   =   0   'False
  551.          Height          =   495
  552.          InflateBottom   =   180
  553.          InflateLeft     =   180
  554.          InflateRight    =   180
  555.          InflateTop      =   240
  556.          Left            =   240
  557.          TabIndex        =   1
  558.          Top             =   480
  559.          Version         =   268435458
  560.          Width           =   8415
  561.       End
  562.       Begin Label Label10 
  563.          BackColor       =   &H00C0C0C0&
  564.          Caption         =   "00283-A"
  565.          FontBold        =   -1  'True
  566.          FontItalic      =   0   'False
  567.          FontName        =   "MS Sans Serif"
  568.          FontSize        =   13.5
  569.          FontStrikethru  =   0   'False
  570.          FontUnderline   =   0   'False
  571.          Height          =   345
  572.          Left            =   7200
  573.          TabIndex        =   30
  574.          Top             =   3165
  575.          Width           =   1185
  576.       End
  577.       Begin Label Label9 
  578.          BackColor       =   &H00C0C0C0&
  579.          Caption         =   "Policy Number:"
  580.          Height          =   210
  581.          Left            =   7155
  582.          TabIndex        =   29
  583.          Top             =   2940
  584.          Width           =   1335
  585.       End
  586.       Begin Label Label5 
  587.          BackColor       =   &H00C0C0C0&
  588.          Caption         =   "f. State of Residence"
  589.          Height          =   255
  590.          Left            =   5010
  591.          TabIndex        =   13
  592.          Top             =   2835
  593.          Width           =   1845
  594.       End
  595.       Begin Label Label6 
  596.          BackColor       =   &H00C0C0C0&
  597.          Caption         =   "e. State of Birth"
  598.          Height          =   255
  599.          Left            =   3390
  600.          TabIndex        =   14
  601.          Top             =   2835
  602.          Width           =   1365
  603.       End
  604.       Begin Label Label3 
  605.          BackColor       =   &H00C0C0C0&
  606.          Caption         =   "c. List Current Occupation "
  607.          Height          =   255
  608.          Left            =   360
  609.          TabIndex        =   11
  610.          Top             =   1740
  611.          Width           =   4815
  612.       End
  613.       Begin Label Label1 
  614.          BackColor       =   &H00C0C0C0&
  615.          Caption         =   "a. Name"
  616.          Height          =   255
  617.          Left            =   315
  618.          TabIndex        =   10
  619.          Top             =   285
  620.          Width           =   780
  621.       End
  622.    End
  623.    Begin SSPanel Panel3D1 
  624.       Alignment       =   7  'Center - MIDDLE
  625.       AutoSize        =   0  'None
  626.       BackColor       =   &H00C0C0C0&
  627.       BevelInner      =   0  'None
  628.       BevelOuter      =   2  'Raised
  629.       BevelWidth      =   3
  630.       BorderWidth     =   3
  631.       Caption         =   "The National Life Insurance Company of America       "
  632.       FloodColor      =   &H00FF0000&
  633.       FloodShowPct    =   -1  'True
  634.       FloodType       =   0  'None
  635.       Font3D          =   2  'Raised w/heavy shading
  636.       FontBold        =   -1  'True
  637.       FontItalic      =   0   'False
  638.       FontName        =   "MS Sans Serif"
  639.       FontSize        =   13.5
  640.       FontStrikethru  =   0   'False
  641.       FontUnderline   =   0   'False
  642.       ForeColor       =   &H00000000&
  643.       Height          =   585
  644.       Left            =   360
  645.       Outline         =   0   'False
  646.       RoundedCorners  =   -1  'True
  647.       ShadowColor     =   0  'Dark Grey
  648.       TabIndex        =   12
  649.       Top             =   75
  650.       Width           =   8910
  651.       Begin PictureBox Picture1 
  652.          AutoSize        =   -1  'True
  653.          BackColor       =   &H00C0C0C0&
  654.          BorderStyle     =   0  'None
  655.          Height          =   480
  656.          Left            =   7770
  657.          Picture         =   INSURED.FRX:0F0A
  658.          ScaleHeight     =   480
  659.          ScaleWidth      =   480
  660.          TabIndex        =   18
  661.          Top             =   60
  662.          Width           =   480
  663.       End
  664.    End
  665. Sub Command1_Click ()
  666. End Sub
  667. Sub Command3D1_Click ()
  668. form2.Show
  669. form1.Hide
  670. End Sub
  671. Sub Command3D4_Click ()
  672. form3.Show
  673. form1.Hide
  674. End Sub
  675. Sub Command3D5_Click ()
  676. report.Show
  677. form1.Hide
  678. End Sub
  679. Sub fillcombos ()
  680. combo1.AddItem "AL"
  681. combo2.AddItem "AL"
  682. combo1.AddItem "AK"
  683. combo2.AddItem "AK"
  684. combo1.AddItem "AZ"
  685. combo2.AddItem "AZ"
  686. combo1.AddItem "AR"
  687. combo2.AddItem "AR"
  688. combo1.AddItem "CA"
  689. combo2.AddItem "CA"
  690. combo1.AddItem "CO"
  691. combo2.AddItem "CO"
  692. combo1.AddItem "CT"
  693. combo2.AddItem "CT"
  694. combo1.AddItem "DE"
  695. combo2.AddItem "DE"
  696. combo1.AddItem "DC"
  697. combo2.AddItem "DC"
  698. combo1.AddItem "FL"
  699. combo2.AddItem "FL"
  700. combo1.AddItem "GA"
  701. combo2.AddItem "GA"
  702. combo1.AddItem "HI"
  703. combo2.AddItem "HI"
  704. combo1.AddItem "ID"
  705. combo2.AddItem "ID"
  706. combo1.AddItem "IL"
  707. combo2.AddItem "IL"
  708. combo1.AddItem "IN"
  709. combo2.AddItem "IN"
  710. combo1.AddItem "IA"
  711. combo2.AddItem "IA"
  712. combo1.AddItem "KS"
  713. combo2.AddItem "KS"
  714. combo1.AddItem "KY"
  715. combo2.AddItem "KY"
  716. combo1.AddItem "LA"
  717. combo2.AddItem "LA"
  718. combo1.AddItem "ME"
  719. combo2.AddItem "ME"
  720. combo1.AddItem "MD"
  721. combo2.AddItem "MD"
  722. combo1.AddItem "MA"
  723. combo2.AddItem "MA"
  724. combo1.AddItem "MI"
  725. combo2.AddItem "MI"
  726. combo1.AddItem "MN"
  727. combo2.AddItem "MN"
  728. combo1.AddItem "MS"
  729. combo2.AddItem "MS"
  730. combo1.AddItem "MO"
  731. combo2.AddItem "MO"
  732. combo1.AddItem "MT"
  733. combo2.AddItem "MT"
  734. combo1.AddItem "NE"
  735. combo2.AddItem "NE"
  736. combo1.AddItem "NV"
  737. combo2.AddItem "NV"
  738. combo1.AddItem "NH"
  739. combo2.AddItem "NH"
  740. combo1.AddItem "NJ"
  741. combo2.AddItem "NJ"
  742. combo1.AddItem "NM"
  743. combo2.AddItem "NM"
  744. combo1.AddItem "NY"
  745. combo2.AddItem "NY"
  746. combo1.AddItem "NC"
  747. combo2.AddItem "NC"
  748. combo1.AddItem "ND"
  749. combo2.AddItem "ND"
  750. combo1.AddItem "OH"
  751. combo2.AddItem "OH"
  752. combo1.AddItem "OK"
  753. combo2.AddItem "OK"
  754. combo1.AddItem "OR"
  755. combo2.AddItem "OR"
  756. combo1.AddItem "PA"
  757. combo2.AddItem "PA"
  758. combo1.AddItem "RI"
  759. combo2.AddItem "RI"
  760. combo1.AddItem "SC"
  761. combo2.AddItem "SC"
  762. combo1.AddItem "SD"
  763. combo2.AddItem "SD"
  764. combo1.AddItem "TN"
  765. combo2.AddItem "TN"
  766. combo1.AddItem "TX"
  767. combo2.AddItem "TX"
  768. combo1.AddItem "UT"
  769. combo2.AddItem "UT"
  770. combo1.AddItem "VT"
  771. combo2.AddItem "VT"
  772. combo1.AddItem "VA"
  773. combo2.AddItem "VA"
  774. combo1.AddItem "WA"
  775. combo2.AddItem "WA"
  776. combo1.AddItem "WV"
  777. combo2.AddItem "WV"
  778. combo1.AddItem "WI"
  779. combo2.AddItem "WI"
  780. combo1.AddItem "WY"
  781. combo2.AddItem "WY"
  782. combo3.AddItem "Single Indemnity"
  783. combo3.AddItem "Double Indemnity"
  784. combo3.AddItem "Schizophrenia Insurance"
  785. combo3.AddItem "Invasion Insurance"
  786. End Sub
  787. Sub Form_Load ()
  788. form1.WindowState = 2
  789. Call fillcombos
  790. End Sub
  791. Sub Option3D1_Click (value As Integer)
  792. If value = -1 Then status$ = "Married"
  793. End Sub
  794. Sub Option3D2_Click (value As Integer)
  795. If value = -1 Then status$ = "Single"
  796. End Sub
  797. Sub Option3D3_Click (value As Integer)
  798. If value = -1 Then status$ = "Widowed"
  799. End Sub
  800. Sub Option3D4_Click (value As Integer)
  801. If value = -1 Then status$ = "Separated"
  802. End Sub
  803. Sub Option3D7_Click (value As Integer)
  804. If value = -1 Then status$ = "Divorced"
  805. End Sub
  806.