home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Quiz_Softw2029431162006.psc / frmMain.frm < prev   
Text File  |  2006-11-06  |  36KB  |  1,010 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form frmMain 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Computerized Examination version 1.0"
  6.    ClientHeight    =   7080
  7.    ClientLeft      =   150
  8.    ClientTop       =   840
  9.    ClientWidth     =   9360
  10.    Icon            =   "frmMain.frx":0000
  11.    KeyPreview      =   -1  'True
  12.    LinkTopic       =   "Form1"
  13.    LockControls    =   -1  'True
  14.    MaxButton       =   0   'False
  15.    ScaleHeight     =   472
  16.    ScaleMode       =   3  'Pixel
  17.    ScaleWidth      =   624
  18.    StartUpPosition =   3  'Windows Default
  19.    Begin VB.Timer tmrTime 
  20.       Enabled         =   0   'False
  21.       Interval        =   1000
  22.       Left            =   900
  23.       Top             =   660
  24.    End
  25.    Begin MSComctlLib.StatusBar sbStatusBar 
  26.       Align           =   2  'Align Bottom
  27.       Height          =   375
  28.       Left            =   0
  29.       TabIndex        =   21
  30.       Top             =   6705
  31.       Width           =   9360
  32.       _ExtentX        =   16510
  33.       _ExtentY        =   661
  34.       _Version        =   393216
  35.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  36.          NumPanels       =   3
  37.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  38.             AutoSize        =   1
  39.             Object.Width           =   11324
  40.          EndProperty
  41.          BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  42.             Key             =   "Date"
  43.          EndProperty
  44.          BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  45.             Key             =   "Time"
  46.          EndProperty
  47.       EndProperty
  48.    End
  49.    Begin VB.PictureBox picDesign 
  50.       AutoRedraw      =   -1  'True
  51.       AutoSize        =   -1  'True
  52.       Height          =   6735
  53.       Left            =   0
  54.       Picture         =   "frmMain.frx":030A
  55.       ScaleHeight     =   445
  56.       ScaleMode       =   3  'Pixel
  57.       ScaleWidth      =   632
  58.       TabIndex        =   2
  59.       TabStop         =   0   'False
  60.       Top             =   0
  61.       Width           =   9540
  62.       Begin VB.CommandButton cmdDirection 
  63.          BackColor       =   &H00BFF0EF&
  64.          Caption         =   "&Direction"
  65.          Enabled         =   0   'False
  66.          BeginProperty Font 
  67.             Name            =   "Comic Sans MS"
  68.             Size            =   9.75
  69.             Charset         =   0
  70.             Weight          =   700
  71.             Underline       =   0   'False
  72.             Italic          =   0   'False
  73.             Strikethrough   =   0   'False
  74.          EndProperty
  75.          Height          =   555
  76.          Left            =   7740
  77.          Style           =   1  'Graphical
  78.          TabIndex        =   14
  79.          Top             =   5280
  80.          Width           =   1335
  81.       End
  82.       Begin VB.CommandButton cmdNextCategory 
  83.          BackColor       =   &H00BFF0EF&
  84.          Caption         =   "Next &Category"
  85.          Enabled         =   0   'False
  86.          BeginProperty Font 
  87.             Name            =   "Comic Sans MS"
  88.             Size            =   9.75
  89.             Charset         =   0
  90.             Weight          =   700
  91.             Underline       =   0   'False
  92.             Italic          =   0   'False
  93.             Strikethrough   =   0   'False
  94.          EndProperty
  95.          Height          =   555
  96.          Left            =   7740
  97.          Style           =   1  'Graphical
  98.          TabIndex        =   16
  99.          Top             =   5880
  100.          Width           =   1335
  101.       End
  102.       Begin VB.CommandButton cmdPos 
  103.          BackColor       =   &H00BFF0EF&
  104.          Caption         =   "&Next"
  105.          Enabled         =   0   'False
  106.          BeginProperty Font 
  107.             Name            =   "Comic Sans MS"
  108.             Size            =   9.75
  109.             Charset         =   0
  110.             Weight          =   700
  111.             Underline       =   0   'False
  112.             Italic          =   0   'False
  113.             Strikethrough   =   0   'False
  114.          EndProperty
  115.          Height          =   495
  116.          Index           =   0
  117.          Left            =   7740
  118.          Style           =   1  'Graphical
  119.          TabIndex        =   7
  120.          Top             =   180
  121.          Width           =   1335
  122.       End
  123.       Begin VB.PictureBox picTray 
  124.          Appearance      =   0  'Flat
  125.          AutoRedraw      =   -1  'True
  126.          BackColor       =   &H00BFF0EF&
  127.          BorderStyle     =   0  'None
  128.          ForeColor       =   &H80000008&
  129.          Height          =   1575
  130.          Left            =   2160
  131.          ScaleHeight     =   105
  132.          ScaleMode       =   3  'Pixel
  133.          ScaleWidth      =   229
  134.          TabIndex        =   28
  135.          TabStop         =   0   'False
  136.          Top             =   2640
  137.          Width           =   3435
  138.          Begin VB.CommandButton cmdOk 
  139.             BackColor       =   &H00C0C0C0&
  140.             Caption         =   "Ok"
  141.             Default         =   -1  'True
  142.             Height          =   375
  143.             Left            =   420
  144.             TabIndex        =   0
  145.             Top             =   1080
  146.             WhatsThisHelpID =   9000
  147.             Width           =   975
  148.          End
  149.          Begin VB.CommandButton cmdExit 
  150.             BackColor       =   &H00C0C0C0&
  151.             Cancel          =   -1  'True
  152.             Caption         =   "Exit"
  153.             Height          =   375
  154.             Left            =   2220
  155.             TabIndex        =   1
  156.             Top             =   1080
  157.             WhatsThisHelpID =   9000
  158.             Width           =   975
  159.          End
  160.          Begin VB.Label lblTime 
  161.             Alignment       =   1  'Right Justify
  162.             AutoSize        =   -1  'True
  163.             BackStyle       =   0  'Transparent
  164.             Caption         =   "#"
  165.             BeginProperty Font 
  166.                Name            =   "MS Sans Serif"
  167.                Size            =   9.75
  168.                Charset         =   0
  169.                Weight          =   400
  170.                Underline       =   0   'False
  171.                Italic          =   0   'False
  172.                Strikethrough   =   0   'False
  173.             EndProperty
  174.             Height          =   240
  175.             Left            =   3120
  176.             TabIndex        =   31
  177.             Top             =   60
  178.             Width           =   105
  179.          End
  180.          Begin VB.Label lblMess 
  181.             AutoSize        =   -1  'True
  182.             BackStyle       =   0  'Transparent
  183.             Caption         =   "Would you like to start now?"
  184.             BeginProperty Font 
  185.                Name            =   "MS Sans Serif"
  186.                Size            =   9.75
  187.                Charset         =   0
  188.                Weight          =   400
  189.                Underline       =   0   'False
  190.                Italic          =   0   'False
  191.                Strikethrough   =   0   'False
  192.             EndProperty
  193.             Height          =   240
  194.             Left            =   540
  195.             TabIndex        =   30
  196.             Top             =   480
  197.             Width           =   2460
  198.          End
  199.          Begin VB.Label lblDate 
  200.             AutoSize        =   -1  'True
  201.             BackStyle       =   0  'Transparent
  202.             Caption         =   "#"
  203.             BeginProperty Font 
  204.                Name            =   "MS Sans Serif"
  205.                Size            =   9.75
  206.                Charset         =   0
  207.                Weight          =   400
  208.                Underline       =   0   'False
  209.                Italic          =   0   'False
  210.                Strikethrough   =   0   'False
  211.             EndProperty
  212.             Height          =   240
  213.             Left            =   120
  214.             TabIndex        =   29
  215.             Top             =   60
  216.             Width           =   105
  217.          End
  218.       End
  219.       Begin VB.PictureBox picDummy 
  220.          Appearance      =   0  'Flat
  221.          AutoRedraw      =   -1  'True
  222.          BackColor       =   &H80000005&
  223.          BorderStyle     =   0  'None
  224.          Enabled         =   0   'False
  225.          BeginProperty Font 
  226.             Name            =   "Monotype Corsiva"
  227.             Size            =   18
  228.             Charset         =   0
  229.             Weight          =   700
  230.             Underline       =   0   'False
  231.             Italic          =   -1  'True
  232.             Strikethrough   =   0   'False
  233.          EndProperty
  234.          ForeColor       =   &H0000CCFF&
  235.          Height          =   315
  236.          Left            =   1860
  237.          ScaleHeight     =   21
  238.          ScaleMode       =   3  'Pixel
  239.          ScaleWidth      =   17
  240.          TabIndex        =   27
  241.          TabStop         =   0   'False
  242.          Top             =   660
  243.          Width           =   255
  244.       End
  245.       Begin VB.Timer tmrTimer 
  246.          Enabled         =   0   'False
  247.          Interval        =   1000
  248.          Left            =   1320
  249.          Top             =   660
  250.       End
  251.       Begin VB.CommandButton cmdPos 
  252.          BackColor       =   &H00BFF0EF&
  253.          Caption         =   "N&ext Flag"
  254.          Enabled         =   0   'False
  255.          BeginProperty Font 
  256.             Name            =   "Comic Sans MS"
  257.             Size            =   9.75
  258.             Charset         =   0
  259.             Weight          =   700
  260.             Underline       =   0   'False
  261.             Italic          =   0   'False
  262.             Strikethrough   =   0   'False
  263.          EndProperty
  264.          Height          =   555
  265.          Index           =   4
  266.          Left            =   7740
  267.          Style           =   1  'Graphical
  268.          TabIndex        =   11
  269.          Top             =   2700
  270.          Width           =   1335
  271.       End
  272.       Begin VB.CommandButton cmdPos 
  273.          BackColor       =   &H00BFF0EF&
  274.          Caption         =   "&Last Flag"
  275.          Enabled         =   0   'False
  276.          BeginProperty Font 
  277.             Name            =   "Comic Sans MS"
  278.             Size            =   9.75
  279.             Charset         =   0
  280.             Weight          =   700
  281.             Underline       =   0   'False
  282.             Italic          =   0   'False
  283.             Strikethrough   =   0   'False
  284.          EndProperty
  285.          Height          =   555
  286.          Index           =   3
  287.          Left            =   7740
  288.          Style           =   1  'Graphical
  289.          TabIndex        =   10
  290.          Top             =   2100
  291.          Width           =   1335
  292.       End
  293.       Begin VB.CommandButton cmdPos 
  294.          BackColor       =   &H00BFF0EF&
  295.          Caption         =   "&Flag"
  296.          Enabled         =   0   'False
  297.          BeginProperty Font 
  298.             Name            =   "Comic Sans MS"
  299.             Size            =   9.75
  300.             Charset         =   0
  301.             Weight          =   700
  302.             Underline       =   0   'False
  303.             Italic          =   0   'False
  304.             Strikethrough   =   0   'False
  305.          EndProperty
  306.          Height          =   555
  307.          Index           =   2
  308.          Left            =   7740
  309.          Style           =   1  'Graphical
  310.          TabIndex        =   9
  311.          Top             =   1500
  312.          Width           =   1335
  313.       End
  314.       Begin VB.CommandButton cmdPos 
  315.          BackColor       =   &H00BFF0EF&
  316.          Caption         =   "Next Unanswered"
  317.          Enabled         =   0   'False
  318.          BeginProperty Font 
  319.             Name            =   "Comic Sans MS"
  320.             Size            =   9.75
  321.             Charset         =   0
  322.             Weight          =   700
  323.             Underline       =   0   'False
  324.             Italic          =   0   'False
  325.             Strikethrough   =   0   'False
  326.          EndProperty
  327.          Height          =   555
  328.          Index           =   6
  329.          Left            =   7740
  330.          Style           =   1  'Graphical
  331.          TabIndex        =   12
  332.          Top             =   3480
  333.          Width           =   1335
  334.       End
  335.       Begin VB.CommandButton cmdPos 
  336.          BackColor       =   &H00BFF0EF&
  337.          Caption         =   "Last Unaswered"
  338.          Enabled         =   0   'False
  339.          BeginProperty Font 
  340.             Name            =   "Comic Sans MS"
  341.             Size            =   9.75
  342.             Charset         =   0
  343.             Weight          =   700
  344.             Underline       =   0   'False
  345.             Italic          =   0   'False
  346.             Strikethrough   =   0   'False
  347.          EndProperty
  348.          Height          =   555
  349.          Index           =   5
  350.          Left            =   7740
  351.          Style           =   1  'Graphical
  352.          TabIndex        =   13
  353.          Top             =   4080
  354.          Width           =   1335
  355.       End
  356.       Begin VB.CommandButton cmdPos 
  357.          BackColor       =   &H00BFF0EF&
  358.          Caption         =   "&Previous"
  359.          Enabled         =   0   'False
  360.          BeginProperty Font 
  361.             Name            =   "Comic Sans MS"
  362.             Size            =   9.75
  363.             Charset         =   0
  364.             Weight          =   700
  365.             Underline       =   0   'False
  366.             Italic          =   0   'False
  367.             Strikethrough   =   0   'False
  368.          EndProperty
  369.          Height          =   555
  370.          Index           =   1
  371.          Left            =   7740
  372.          Style           =   1  'Graphical
  373.          TabIndex        =   8
  374.          Top             =   720
  375.          Width           =   1335
  376.       End
  377.       Begin VB.PictureBox picTime 
  378.          AutoRedraw      =   -1  'True
  379.          BackColor       =   &H00C0C0FF&
  380.          BorderStyle     =   0  'None
  381.          Enabled         =   0   'False
  382.          BeginProperty Font 
  383.             Name            =   "MS Sans Serif"
  384.             Size            =   9.75
  385.             Charset         =   0
  386.             Weight          =   700
  387.             Underline       =   0   'False
  388.             Italic          =   0   'False
  389.             Strikethrough   =   0   'False
  390.          EndProperty
  391.          Height          =   375
  392.          Left            =   240
  393.          ScaleHeight     =   25
  394.          ScaleMode       =   3  'Pixel
  395.          ScaleWidth      =   161
  396.          TabIndex        =   24
  397.          TabStop         =   0   'False
  398.          Top             =   6120
  399.          Width           =   2415
  400.       End
  401.       Begin VB.PictureBox picCompleted 
  402.          AutoRedraw      =   -1  'True
  403.          BackColor       =   &H00C0C0FF&
  404.          BorderStyle     =   0  'None
  405.          Enabled         =   0   'False
  406.          BeginProperty Font 
  407.             Name            =   "MS Sans Serif"
  408.             Size            =   9.75
  409.             Charset         =   0
  410.             Weight          =   700
  411.             Underline       =   0   'False
  412.             Italic          =   0   'False
  413.             Strikethrough   =   0   'False
  414.          EndProperty
  415.          Height          =   375
  416.          Left            =   4560
  417.          ScaleHeight     =   25
  418.          ScaleMode       =   3  'Pixel
  419.          ScaleWidth      =   161
  420.          TabIndex        =   23
  421.          TabStop         =   0   'False
  422.          Top             =   6120
  423.          Width           =   2415
  424.       End
  425.       Begin MSComctlLib.ImageCombo imcListAns 
  426.          Height          =   420
  427.          Left            =   240
  428.          TabIndex        =   22
  429.          Tag             =   "MarkButton"
  430.          Top             =   120
  431.          Visible         =   0   'False
  432.          Width           =   1095
  433.          _ExtentX        =   1931
  434.          _ExtentY        =   741
  435.          _Version        =   393216
  436.          ForeColor       =   -2147483640
  437.          BackColor       =   15006974
  438.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  439.             Name            =   "MS Sans Serif"
  440.             Size            =   9.75
  441.             Charset         =   0
  442.             Weight          =   700
  443.             Underline       =   0   'False
  444.             Italic          =   0   'False
  445.             Strikethrough   =   0   'False
  446.          EndProperty
  447.          Locked          =   -1  'True
  448.          ImageList       =   "imlImageList"
  449.       End
  450.       Begin MSComctlLib.ImageList imlImageList 
  451.          Left            =   240
  452.          Top             =   600
  453.          _ExtentX        =   1005
  454.          _ExtentY        =   1005
  455.          BackColor       =   15006974
  456.          ImageWidth      =   22
  457.          ImageHeight     =   22
  458.          MaskColor       =   12632256
  459.          _Version        =   393216
  460.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  461.             NumListImages   =   2
  462.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  463.                Picture         =   "frmMain.frx":CE314
  464.                Key             =   "imgLightOff"
  465.             EndProperty
  466.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  467.                Picture         =   "frmMain.frx":CE768
  468.                Key             =   "imgLightOn"
  469.             EndProperty
  470.          EndProperty
  471.       End
  472.       Begin MSComctlLib.ProgressBar pgbMinute 
  473.          Height          =   255
  474.          Left            =   2760
  475.          TabIndex        =   25
  476.          Top             =   6300
  477.          Width           =   1695
  478.          _ExtentX        =   2990
  479.          _ExtentY        =   450
  480.          _Version        =   393216
  481.          Appearance      =   1
  482.          Scrolling       =   1
  483.       End
  484.       Begin MSComctlLib.ProgressBar pgbSecond 
  485.          Height          =   255
  486.          Left            =   2760
  487.          TabIndex        =   26
  488.          Top             =   6060
  489.          Width           =   1695
  490.          _ExtentX        =   2990
  491.          _ExtentY        =   450
  492.          _Version        =   393216
  493.          Appearance      =   1
  494.          Max             =   59
  495.          Scrolling       =   1
  496.       End
  497.       Begin prjExamination.ChoiceButton cbOption 
  498.          Height          =   375
  499.          Index           =   0
  500.          Left            =   360
  501.          TabIndex        =   3
  502.          Top             =   2280
  503.          Visible         =   0   'False
  504.          Width           =   585
  505.          _ExtentX        =   1032
  506.          _ExtentY        =   661
  507.       End
  508.       Begin prjExamination.ChoiceButton cbOption 
  509.          Height          =   375
  510.          Index           =   1
  511.          Left            =   360
  512.          TabIndex        =   4
  513.          Top             =   3180
  514.          Visible         =   0   'False
  515.          Width           =   585
  516.          _ExtentX        =   1032
  517.          _ExtentY        =   661
  518.          Selection       =   1
  519.       End
  520.       Begin prjExamination.ChoiceButton cbOption 
  521.          Height          =   375
  522.          Index           =   2
  523.          Left            =   360
  524.          TabIndex        =   5
  525.          Top             =   4020
  526.          Visible         =   0   'False
  527.          Width           =   585
  528.          _ExtentX        =   1032
  529.          _ExtentY        =   661
  530.          Selection       =   2
  531.       End
  532.       Begin prjExamination.ChoiceButton cbOption 
  533.          Height          =   375
  534.          Index           =   3
  535.          Left            =   360
  536.          TabIndex        =   6
  537.          Top             =   4860
  538.          Visible         =   0   'False
  539.          Width           =   585
  540.          _ExtentX        =   1032
  541.          _ExtentY        =   661
  542.          Selection       =   3
  543.       End
  544.       Begin VB.Label lblQuestion 
  545.          BackColor       =   &H00FFFFFF&
  546.          BackStyle       =   0  'Transparent
  547.          BeginProperty Font 
  548.             Name            =   "Fixedsys"
  549.             Size            =   9
  550.             Charset         =   0
  551.             Weight          =   400
  552.             Underline       =   0   'False
  553.             Italic          =   0   'False
  554.             Strikethrough   =   0   'False
  555.          EndProperty
  556.          ForeColor       =   &H000000C0&
  557.          Height          =   1395
  558.          Left            =   1380
  559.          TabIndex        =   20
  560.          Top             =   60
  561.          Visible         =   0   'False
  562.          Width           =   5655
  563.       End
  564.       Begin VB.Label lblOption 
  565.          Appearance      =   0  'Flat
  566.          BackColor       =   &H80000005&
  567.          BackStyle       =   0  'Transparent
  568.          BeginProperty Font 
  569.             Name            =   "Arial"
  570.             Size            =   9.75
  571.             Charset         =   0
  572.             Weight          =   700
  573.             Underline       =   0   'False
  574.             Italic          =   0   'False
  575.             Strikethrough   =   0   'False
  576.          EndProperty
  577.          ForeColor       =   &H80000008&
  578.          Height          =   735
  579.          Index           =   0
  580.          Left            =   1080
  581.          TabIndex        =   19
  582.          Top             =   2280
  583.          Visible         =   0   'False
  584.          Width           =   5835
  585.       End
  586.       Begin VB.Label lblOption 
  587.          Appearance      =   0  'Flat
  588.          BackColor       =   &H80000005&
  589.          BackStyle       =   0  'Transparent
  590.          BeginProperty Font 
  591.             Name            =   "Arial"
  592.             Size            =   9.75
  593.             Charset         =   0
  594.             Weight          =   700
  595.             Underline       =   0   'False
  596.             Italic          =   0   'False
  597.             Strikethrough   =   0   'False
  598.          EndProperty
  599.          ForeColor       =   &H80000008&
  600.          Height          =   735
  601.          Index           =   1
  602.          Left            =   1080
  603.          TabIndex        =   18
  604.          Top             =   3120
  605.          Visible         =   0   'False
  606.          Width           =   5835
  607.       End
  608.       Begin VB.Label lblOption 
  609.          Appearance      =   0  'Flat
  610.          BackColor       =   &H80000005&
  611.          BackStyle       =   0  'Transparent
  612.          BeginProperty Font 
  613.             Name            =   "Arial"
  614.             Size            =   9.75
  615.             Charset         =   0
  616.             Weight          =   700
  617.             Underline       =   0   'False
  618.             Italic          =   0   'False
  619.             Strikethrough   =   0   'False
  620.          EndProperty
  621.          ForeColor       =   &H80000008&
  622.          Height          =   735
  623.          Index           =   2
  624.          Left            =   1080
  625.          TabIndex        =   17
  626.          Top             =   3960
  627.          Visible         =   0   'False
  628.          Width           =   5835
  629.       End
  630.       Begin VB.Label lblOption 
  631.          Appearance      =   0  'Flat
  632.          BackColor       =   &H80000005&
  633.          BackStyle       =   0  'Transparent
  634.          BeginProperty Font 
  635.             Name            =   "Arial"
  636.             Size            =   9.75
  637.             Charset         =   0
  638.             Weight          =   700
  639.             Underline       =   0   'False
  640.             Italic          =   0   'False
  641.             Strikethrough   =   0   'False
  642.          EndProperty
  643.          ForeColor       =   &H80000008&
  644.          Height          =   735
  645.          Index           =   3
  646.          Left            =   1080
  647.          TabIndex        =   15
  648.          Top             =   4800
  649.          Visible         =   0   'False
  650.          Width           =   5835
  651.       End
  652.    End
  653.    Begin VB.Menu mnuFile 
  654.       Caption         =   "&File"
  655.       Begin VB.Menu mnuExit 
  656.          Caption         =   "E&xit"
  657.       End
  658.    End
  659.    Begin VB.Menu mnuAbout 
  660.       Caption         =   "&About"
  661.    End
  662. End
  663. Attribute VB_Name = "frmMain"
  664. Attribute VB_GlobalNameSpace = False
  665. Attribute VB_Creatable = False
  666. Attribute VB_PredeclaredId = True
  667. Attribute VB_Exposed = False
  668. Option Explicit
  669.  
  670. ' i want to add some more but the file is to large. It's
  671. ' hard for me to upload.
  672.  
  673. Dim CurPos     As Integer
  674. Dim FlagWidth  As Long
  675. Dim FlagHeight As Long
  676. Dim TotalAns   As Long
  677.  
  678. Dim hh        As Byte
  679. Dim mm        As Byte
  680. Dim ss        As Byte
  681. Dim TotalMins As Integer
  682.  
  683. Dim FlagPict As New StdPicture
  684.  
  685. Private Sub cbOption_Click(Index As Integer)
  686.     Dim i As Integer
  687.     
  688.     For i = 0 To cbOption.Count - 1
  689.         If Index <> i Then
  690.             cbOption(i).Press = False
  691.             lblOption(i).BackStyle = 0
  692.         Else
  693.             lblOption(Index).BackStyle = IIf(cbOption(Index).Press, 1, 0)
  694.             lblOption(Index).BackColor = &H80FFFF
  695.             imcListAns.ComboItems(CurPos).Image = _
  696.                 IIf(cbOption(Index).Press, "imgLightOn", "imgLightOff")
  697.                 
  698.             If cbOption(Index).Press Then
  699.                 MyAnswer(CurPos).Answer = DataInfo(DataInfo(CurPos).ItemID).OptionID(Index + 1)
  700.                 MyAnswer(CurPos).Selected = Index
  701.             Else
  702.                 MyAnswer(CurPos).Answer = 0
  703.             End If
  704.         End If
  705.     Next
  706.     
  707.     TotalAns = 0
  708.     For i = 1 To MyAnswer.Count
  709.         If MyAnswer(i).Answer <> 0 Then
  710.             TotalAns = TotalAns + 1
  711.         End If
  712.     Next i
  713.     AnswerCompleted "Completed at - " & CStr(TotalAns) & "/" & MyExam.TotalItems, vbBlack, -1
  714.     Debug.Print DataInfo(DataInfo(CurPos).ItemID).OptionID(Index + 1)
  715. End Sub
  716.  
  717. Private Sub cmdExit_Click()
  718.     Unload Me
  719. End Sub
  720.  
  721. Private Sub cmdOk_Click()
  722.     Dim i As Integer
  723.     
  724.     StartCategory
  725.     picTray.Visible = False
  726.     picDummy.Visible = False
  727.     lblQuestion.Visible = True
  728.     imcListAns.Visible = True
  729.     For i = 0 To 3
  730.         cbOption(i).Visible = True
  731.         lblOption(i).Visible = True
  732.     Next
  733.     For i = cmdPos.LBound To cmdPos.UBound
  734.         cmdPos(i).Enabled = True
  735.     Next i
  736.     cmdNextCategory.Enabled = True
  737.     cmdDirection.Enabled = True
  738.     cbOption(0).SetFocus
  739. End Sub
  740.  
  741. Private Sub cmdPos_Click(Index As Integer)
  742.     Dim i As Integer
  743.     
  744.     Select Case Index
  745.     Case Is = 0 ' Next
  746.         CurPos = CurPos + 1
  747.         If CurPos > MyExam.TotalItems Then
  748.             CurPos = MyExam.TotalItems
  749.         End If
  750.     Case Is = 1 ' Previous
  751.         CurPos = CurPos - 1
  752.         If CurPos < 1 Then CurPos = 1
  753.     Case Is = 2 ' Flag
  754.         MyAnswer(CurPos).Flag = Not MyAnswer(CurPos).Flag
  755.         If MyAnswer(CurPos).Flag Then
  756.             DisplayFlaggedPicture
  757.         Else
  758.             picDesign.Cls
  759.         End If
  760.         Exit Sub
  761.     Case Is = 3 ' Last Flag
  762.         For i = CurPos - 1 To 1 Step -1
  763.             If MyAnswer(i).Flag Then
  764.                 CurPos = i
  765.                 Exit For
  766.             End If
  767.         Next i
  768.     Case Is = 4 ' Next flag
  769.         For i = CurPos + 1 To MyAnswer.Count
  770.             If MyAnswer(i).Flag Then
  771.                 CurPos = i
  772.                 Exit For
  773.             End If
  774.         Next i
  775.     Case Is = 5 ' Last Unanswered
  776.         For i = CurPos - 1 To 1 Step -1
  777.             If MyAnswer(i).Answer = 0 Then
  778.                 CurPos = i
  779.                 Exit For
  780.             End If
  781.         Next i
  782.     Case Is = 6 ' Next Unanswered
  783.         For i = CurPos + 1 To MyAnswer.Count
  784.             If MyAnswer(i).Answer = 0 Then
  785.                 CurPos = i
  786.                 Exit For
  787.             End If
  788.         Next i
  789.     End Select
  790.         
  791.     UpdateQuestion
  792. End Sub
  793.  
  794. Private Sub cmdDirection_Click()
  795.     frmDirection.Show vbModal, Me
  796. End Sub
  797.  
  798. Private Sub cmdNextCategory_Click()
  799.     Dim Mess As String, ret As Boolean
  800.      
  801.      ret = False
  802.     If TotalAns <> MyExam.TotalItems Then
  803.         Mess = MyExam.TotalItems - TotalAns & " questions unanswered!" _
  804.             & Chr(13) & "Next Category?"
  805.         If MsgBox(Mess, vbYesNo Or vbInformation, "Examination") = vbYes Then
  806.             ret = ID(Index + 1)DoAO333333333y   ory?"
  807.         If MsgBoxxxxN21EpytaaaaMyAnswer(i).AIf MsgBc?" =   L213t As BooleanPos = 1
  808.     Case I
  809.   aaaaMyAnswer(i).AIf MsgBcOr v alse
  810.     If TotalAnnC   _2st
  811.         V(o   E21e
  812.     If Total=
  813.      ret = False
  814.  0 E21e
  815.     If Total=PsyAnswer(3I
  816. , E21e
  817.   m11
  818.  
  819. Pri  V(o   E21e
  820.     If Total=
  821.      ret = FalsNsese
  822.     If TotalAnnC   _2st
  823.         V(o   E21e
  824.     If Total=
  825.      ret = False
  826.  0 E21e
  827.     If Total=PsyAnswer(3I
  828. , E21e
  829.   m11
  830.  
  831. Pri  V(o   E21e
  832.     If Total=
  833.      ret = FalsNsese
  834.     If TotalAnnC   _2st
  835.         V(o   E21e
  836.     If Total=
  837.      ret = F0Ewhen
  838.   o=   E21etal=or       =ex).BackColor = &H80FF_ o=   E "Last Unaswered"
  839.       olor = rxt iTotal=
  840.      ible = True
  841.     089P. Top             ret = Ft9Oaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa,o
  842.  
  843. Pri  V(o   E21e
  844.      Begin VB.Lax).BackColt9Naaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
  845.     SCHer(CurPos6   If Total=
  846.      ret = FalsNsese
  847.     If TotalAnnC   _fP    lblOption(Index).BackColor = &H80FFFF
  848.             imcListAns.ComboItems(CurPos).Image = _
  849.                 IIf(cbOption(Index).Press, "imgLightOn", "imgLightOff")
  850.                 
  851.             If cbOption(Index).Press Then
  852.                 MyAnswer(CurFue0ns Then
  853.  3s         MyAnswer(CurFue0ns Then
  854.  3s        ker <> 0 ThensaaaIf cbOption(Index).Press Th& 
  855.    xU   =   &HC&agurPos + x +   =  ret = Iwer(CurPos).Flaaa0s + x +   = Answer(CurPos).Flagpace    =   0
  856.             Weight          =   700
  857.             Underline       =   0   'False
  858.             Italic      Total=
  859.      retos_Click(u41
  860.          _Version w2s).Fla  Underline       =   0   'False
  861.           Italic    onsHer(CurPos6 Pl w          Italic    o8Ic    o8Ic    o8Ic4dr1
  862.        f MyAnswer(CurPos).Flag Then
  863.              1NL 'FalsDlsDlsDlsDlsDl       WeBDt"t7Ic4lsDlnoH        Width           =   2415
  864.  8c4lsDlnoH      eag
  865.         FE.BackColor = &H80FF2Sas       We lblOption(Index).BackColor = &H80FFFF
  866.    Ngurr vbInformation, "Exxxxxb   Exit For
  867.            mnrmation, mnrmation, mn fysibh)
  868. n      eB77D    If Total=
  869.      ret = False
  870.  0 E21e
  871.     If Total=PsyAAAAAIf 1    n cB    nection_Click()
  872.     fr1XB    nection_Click(he     V(o   E21e
  873.     I/ompl(nectio   =   &HCmf Tot560
  874.          ScaleHeight     =   25
  875.  aaaaaaaaaor       =ex).BackCo(D     Ex21Sh aaaAn cB    nectim 0 E21e
  876. ic   lick(he     V(o   E21e
  877.     I/ompUnaswered"
  878.   ilaaa0s +     UpdateQue"o   E21e
  879.     I/ompUnaswered"
  880.   ilaaa0s +     UpdateQul0.AIf MsgBc?" =   L213t As BooleanPos = 1
  881.     Case I
  882.   aaaaMyAnswer(i).AIf MsgBcOr v alse
  883.     If TotalAnnC   _2st
  884.         V(o   E21e
  885.     I =   "E&xit"
  886.       End I =   "E&xit"
  887.       End I =   "E&xit"
  888.       End I =   "E&xit"
  889.       End I =   "E&xit"
  890.       End I =   "E&xit"
  891.       End I =   "E&xit"
  892.       End I =   "E&xit"
  893.       End I =   "E&xit"
  894.       End I =   "E&xit"
  895.       End I =   "E&xit"
  896.       EnjaaaaaaaaaaaaaaaaBction.Show vbModal, Me
  897. End Sub
  898.  
  899. Private Sub cmdNextCategory_Clrmation, mnrmation, mn fysibh)
  900. n      eB77D    If Total=
  901.      ret = False
  902.  0 E21e
  903.     If Total=PsyAAxtCategory_Clrmatmation, mn fys= FalsNsese
  904.     If TotalA5=  To MyAnswer.Count
  905.             If MyAnswer(
  906.  3s      .Count
  907.    cI =   "nrmatdEi    .c         CurPos = MyExam.TotalItn*k6vaaaaatCategory_Clrmatg
  908.         Ee0n,. Ise
  909.   SBmpdanWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWF  If MyAnnd Sub
  910.  
  911.  i = 1 To MyAnswer.Count
  912.         If MyAnswer(i).Answer <> 0 Then
  913.             TotalAns = TotalAns + 1
  914.         End If
  915.     Next i
  916.     AnswerCompleted "Completed at - " & CStr(TotalAns) & "/" & MyExam.TotalItems, vbBlack, -1
  917.     Debug.Print DataInfo(DataIn MyAn tn*k6i7hd Subit"
  918.       End  m11
  919.  
  920. Pri  V(o   E21052or i = 1 Tok6i7hd Subit"
  921.   nvvvvvv         CurPos = MyExam.TotalItn*k6vaaaaatCategory_Clrmatvvvvvv      FlagWWWWWWWWWWWWWF  If MyAnnd Sub
  922.       =  uc4   CurPos = MyExam.T7TabIndex        =  Enlsible = True
  923.         lblOption(i).Visible = True
  924.     Next
  925.     For i = cmdPos.LBound To cmdPos.UBound
  926.         cmdPos(i).Enabled = True
  927.     NydPos.L  I/ompUnasweredmat53ue
  928.     NydPos.L  I/ompUnasweredmat53ue
  929.     NydPos.L  I/ompUnasweredmat,weredmat53ue
  930.     NydPos.ydPos.L  I/ompUnasweredmat53ue
  931.   7AesompUnaswerend I =.w+&r0xam.TotalItemsCategory_Clrmatvvvvvv      FlagWWWWWWWWren))h2          ' Last Unanswered
  932.         Forpo==    
  933.            'rans"I MyAnnd Sub
  934.       =  uc4   CurPataIn MyAn tn*k6iv      FlagWWWWWWWWren))hio   =   &HCmf Tot5690
  935.          Stot5D0
  936.          SUna"5690dvecListAns.Visiase Is = 2 ' Flag
  937.         MyAnswer(CurPos).Flag =WF  If MyAn.L  I/ompUnasweredmat53ue
  938.     NydPos.L  I/ompUnasweredmat,weredmat53ue
  939.  cnanswe,r       = 5P.240sweredmat-2.240sweredmat-2.240sweredmat-2.240sweredmat-2.240sweredmat-2.240sweredmat-2.240sweredmat-2.240sweredmat-2.240sweredmat-2.240sweredmat-2.240sweredmat-2.240sweredmat-2.240sweredmat-2.240sweredmat-2.240sweredmat-2.240sweredmat-2.240sweredmat-2.2naswerynr      =  uc4 )C-2.240sweredmat-2.2dredmna2nassw"+ =  I/ossw"+ =  I/ossw"+FlaClrmatvvvvvv      Flaat-2.2at-2.2UioC20ur      =  uc4 )C-2.240sweredmat-2.2dredmna2nassw"+ =  I/oss761e
  940.   m11
  941. b   CuroatCategory_Clrmatvvv.240sweredmat-2.240swerAcAcAcsweredmat-2.240sCount
  942.         .5i I/   eaunswer <> 0 Then
  943.             TotalAns = TotalAns + 1
  944.         End If
  945.     Next i
  946.     AnswerCompleted "Completed at - " & .240sweredmat-2.240sweredmat-2.240sred  =ioC   MyAn tn*k6i7hd SublsDlsDlsDl       WeBDt"t7Ic4lsDlnoH        Width           =   2415
  947.  8c4lsDlnoH      eag
  948.         FE.BackColor = &H80FF2Sas       We lblOption(Index).BackColor = &H80FFFF
  949.    Ngurr vbInformation, "Exxxxxb   Exit For
  950.            mnrmation, mnrmation, mn fysi=   &H00FFFFFF&
  951.  We 61dyF=S  H cbOption(itttttttttttta4oi61dyF=S  H cbOption(ittttttttnrmation, mn fx  nyEnabled = True
  952.     Next i
  953.     cmdNextCategory.Enabled = True
  954.     cmdDirection.Enabled = True
  955.     cbOption(0).SetFocus
  956. End Sub
  957.  
  958. Private Sub cmdPos_Clickn Strikethidth           =   105
  959.          End
  960.          Begin yse3ate Sub cmdStrikethidth     Ifn
  961.        6mate Sub cmdStrikethidtrr+ 1
  962.    CnFFFFFFFFFFFFFFFFFFFFF2d If
  963. Bd
  964.                    rivate Sub cmdPos_Clickn Stri<  H cbOptiFF2d If
  965. InfornFFFFFFFFFFFFFFFFFFFFF2d 3llg+& CuroatCategory_Clrmatvvv.240snaswere+ =r(it
  966. Pri  V(o   E21052or i = 1 Tok6i7hd Subit"
  967.   nvvvvvv         CurPos = MyExam.TotalItn*k6vaaaaatCategory_Clrmatvvvvvgory_Clrmatvvv.240sweredmat-2.240swerAcAcAcsweredmat-2.240sCount
  968.         .5i I/   eaunswer <> 0 Then
  969.             TotalAns = TotalAns + 1
  970.         End If
  971.     Next i
  972.     AnswerCompleted "Completed at - " & .240sweredmat-2.240sweredmat-2.240sred  =io i
  973.     AnswerCompleted "Completed at - " & .240sweredmat-2.240sweredmat-2.240sred  =io i
  974.     AnswerCompleted "Completed at - " & .240sweredmat-2.Mit,fweredmation, mn fysibh)
  975. n       i
  976.       eB77D    If Total=
  977.      ret = False
  978.  0 E21e
  979.     If Total=PsyAAxtCategory_Clrmatmation, mn fys= FalsNsese
  980.     If TotalA5=  To MyAnswer.Count
  981.             If MyAnswer(
  982.  3s      .Count
  983.    cI =   "nrmatdEi    .c         CurPos = MyExam.TotalItn*k6vaaaabmn fys= FalsNsese
  984.     If TotalA5=  To MyAnswer.Count
  985.             If MyAnswer(
  986.  3s      .Count
  987.    cI =   "nrmatdEi    .c         CurPos = MyExam.TotalItn*k6vaaaabmn fys= FalMn4extCai    .c      hCountompleted at - " & .240 Ifuntomply1M,untompr - " & .24r(
  988.  3s      .Coun  .Con       iETotal4rt
  989.  dharset         =  s8   yO"1yarset    2{ nswer6vaaaabm4n)l-nt3ma21- nsw1C/!gurr vbInformation, "Exxxxxb   Exit For
  990. ph7dLs= FalMn4extCai & =  s8   yO"1yarset    2{ nswer6vaaaabmWWWWren))h2          ' Last Unanswered
  991.         Forpo==    
  992.        & .Cnswered
  993.         Forpo==    
  994.        & .Cnswered
  995.         Forpo==    
  996.        & .Cnswered
  997.         Forpo==    
  998.        & .Cnswered
  999.         Forpo==    
  1000.        & .Cnswered
  1001.         Forpo==    
  1002.        & .Cnswered
  1003.         Forpo==    
  1004.        & .Cnswered
  1005.     0=aa0I     msybssw"+ =  I/oss761e
  1006. a    
  1007.        & .Cnswered
  1008.        
  1009.    .  Imat-2.240uEsompleted "Comple6AnswerC,7na-nt3ma21- nsw1C/!gurr vbInnptn*k6vaaaabmn fys= FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFvaaaFFFFFFFFFFFF6n*k6vaaaabmn fys= FFFFFFFFFFFFFl4rt
  1010.  dha