VERSION 5.00
Begin VB.Form frmmain 
   Caption         =   "Questions and Answers for Grade 12 Students (Ver 1.0)"
   ClientHeight    =   8505
   ClientLeft      =   2940
   ClientTop       =   1395
   ClientWidth     =   11280
   BeginProperty Font 
      Name            =   "Limon R1"
      Size            =   20.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "GRADE1~1.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   8505
   ScaleWidth      =   11280
   StartUpPosition =   2  'CenterScreen
   Begin VB.ComboBox cbo1 
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   5760
      TabIndex        =   30
      Top             =   1680
      Width           =   5415
   End
   Begin VB.ComboBox cboAll 
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   5760
      TabIndex        =   29
      Top             =   1680
      Visible         =   0   'False
      Width           =   5415
   End
   Begin VB.ComboBox cboPop 
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   5760
      TabIndex        =   28
      Top             =   1680
      Visible         =   0   'False
      Width           =   5415
   End
   Begin VB.ComboBox cboHis 
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   5760
      TabIndex        =   27
      Top             =   1680
      Visible         =   0   'False
      Width           =   5415
   End
   Begin VB.ComboBox cboBio 
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   5760
      TabIndex        =   26
      Top             =   1680
      Visible         =   0   'False
      Width           =   5415
   End
   Begin VB.OptionButton Option1 
      Caption         =   "Option1"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   470
      Index           =   5
      Left            =   9480
      TabIndex        =   25
      Top             =   1080
      Width           =   1575
   End
   Begin VB.OptionButton Option1 
      Caption         =   "Option1"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   470
      Index           =   4
      Left            =   9480
      TabIndex        =   24
      Top             =   600
      Width           =   1575
   End
   Begin VB.OptionButton Option1 
      Caption         =   "Option1"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   470
      Index           =   3
      Left            =   7560
      TabIndex        =   23
      Top             =   1080
      Width           =   1815
   End
   Begin VB.OptionButton Option1 
      Caption         =   "Option1"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   470
      Index           =   2
      Left            =   7560
      TabIndex        =   22
      Top             =   600
      Width           =   1935
   End
   Begin VB.OptionButton Option1 
      Caption         =   "Option1"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   470
      Index           =   1
      Left            =   5880
      TabIndex        =   21
      Top             =   1080
      Width           =   2055
   End
   Begin VB.OptionButton Option1 
      Caption         =   "Option1"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   470
      Index           =   0
      Left            =   5880
      TabIndex        =   20
      Top             =   600
      Width           =   1455
   End
   Begin VB.ComboBox cboEnvi 
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   5760
      TabIndex        =   19
      Top             =   1680
      Visible         =   0   'False
      Width           =   5415
   End
   Begin VB.TextBox txtLesson 
      BackColor       =   &H8000000F&
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   960
      TabIndex        =   18
      Top             =   1680
      Width           =   4695
   End
   Begin VB.TextBox txtSubject 
      BackColor       =   &H8000000F&
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   960
      TabIndex        =   17
      Top             =   1200
      Width           =   1935
   End
   Begin VB.ComboBox cboGeo 
      BackColor       =   &H80000004&
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   405
      Left            =   5760
      TabIndex        =   16
      Top             =   1680
      Visible         =   0   'False
      Width           =   5415
   End
   Begin VB.CommandButton cmdQ 
      Caption         =   "Question"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   4200
      TabIndex        =   15
      Top             =   7920
      Width           =   1215
   End
   Begin VB.CommandButton cmdDA 
      Caption         =   "Delete Answer"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   500
      Left            =   6840
      TabIndex        =   1
      ToolTipText     =   "Click to go back one step."
      Top             =   7920
      Width           =   1680
   End
   Begin VB.TextBox txtQC 
      Alignment       =   1  'Right Justify
      BackColor       =   &H80000009&
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF00FF&
      Height          =   285
      Left            =   1560
      MaxLength       =   12
      TabIndex        =   12
      TabStop         =   0   'False
      Top             =   8025
      Width           =   675
   End
   Begin VB.CommandButton cmdDAll 
      Caption         =   "Delete All"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   500
      Left            =   8640
      TabIndex        =   2
      ToolTipText     =   "Click to go back one step."
      Top             =   7920
      Width           =   1200
   End
   Begin VB.CommandButton cmdA 
      Caption         =   "Answer"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   500
      Left            =   5520
      TabIndex        =   0
      ToolTipText     =   "Click to add current calculation scenario to a print file. To view record go to 'View' menu, to print record go to 'File' menu."
      Top             =   7920
      Width           =   1200
   End
   Begin VB.TextBox txtA 
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   2835
      Left            =   240
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   5
      TabStop         =   0   'False
      Top             =   4800
      Width           =   10815
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "Exit"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   500
      Left            =   9960
      TabIndex        =   3
      Top             =   7920
      Width           =   1200
   End
   Begin VB.Frame frmsection 
      Caption         =   "Answer"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000002&
      Height          =   3495
      Left            =   120
      TabIndex        =   9
      Top             =   4320
      Width           =   11055
      Begin VB.TextBox txth1 
         BackColor       =   &H8000000F&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   1920
         TabIndex        =   11
         TabStop         =   0   'False
         Top             =   1260
         Width           =   375
      End
      Begin VB.TextBox txtb1 
         Appearance      =   0  'Flat
         BackColor       =   &H8000000F&
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   1920
         TabIndex        =   10
         TabStop         =   0   'False
         Top             =   1850
         Width           =   495
      End
   End
   Begin VB.Frame frmS 
      Caption         =   "Question"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000002&
      Height          =   2175
      Left            =   120
      TabIndex        =   8
      Top             =   2160
      Width           =   11055
      Begin VB.TextBox txtQ 
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000002&
         Height          =   1515
         Left            =   120
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   4
         TabStop         =   0   'False
         Top             =   480
         Width           =   10815
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Subjects"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   1455
      Left            =   5760
      TabIndex        =   14
      Top             =   120
      Width           =   5415
   End
   Begin VB.Line Line2 
      X1              =   0
      X2              =   11280
      Y1              =   0
      Y2              =   0
   End
   Begin VB.Line Line1 
      BorderWidth     =   4
      X1              =   0
      X2              =   11280
      Y1              =   -120
      Y2              =   -120
   End
   Begin VB.Label Label6 
      Caption         =   "Question code"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   11.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Index           =   1
      Left            =   120
      TabIndex        =   13
      Top             =   8040
      Width           =   1455
   End
   Begin VB.Label lblLesson 
      Caption         =   "Lesson"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00008000&
      Height          =   495
      Left            =   120
      TabIndex        =   7
      Top             =   1695
      Width           =   855
   End
   Begin VB.Label lblSubject 
      Caption         =   "Subject"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00008000&
      Height          =   495
      Left            =   120
      TabIndex        =   6
      Top             =   1200
      Width           =   855
   End
   Begin VB.Menu File 
      Caption         =   "&File"
      Index           =   1
      WindowList      =   -1  'True
      Begin VB.Menu prtrecord 
         Caption         =   "&Print record"
         Shortcut        =   ^P
      End
   End
   Begin VB.Menu View 
      Caption         =   "&View"
      Begin VB.Menu Formula 
         Caption         =   "&Formula"
         Shortcut        =   ^F
      End
      Begin VB.Menu vrecord 
         Caption         =   "&Record"
         Shortcut        =   ^R
      End
   End
   Begin VB.Menu Converter 
      Caption         =   "&Converter"
      Begin VB.Menu Area 
         Caption         =   "&Area"
         Shortcut        =   {F2}
      End
      Begin VB.Menu Length 
         Caption         =   "&Length"
         Shortcut        =   {F3}
      End
      Begin VB.Menu Volume 
         Caption         =   "&Volume"
         Shortcut        =   {F4}
      End
   End
   Begin VB.Menu Help 
      Caption         =   "&Help"
      Index           =   1
      Begin VB.Menu about 
         Caption         =   "&About"
         Shortcut        =   ^A
      End
      Begin VB.Menu Assistant 
         Caption         =   "&Assistant"
         Shortcut        =   {F1}
      End
      Begin VB.Menu WhatNew 
         Caption         =   "&What new?"
         Shortcut        =   ^N
      End
   End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Option1_Click(Index As Integer)

If Option1(0).Value = True Then
cboBio.Visible = True
cboGeo.Visible = False
cboEnvi.Visible = False
cboHis.Visible = False
cboPop.Visible = False
cboAll.Visible = False
cbo1.Visible = False

ElseIf Option1(1).Value = True Then
cboBio.Visible = fasle
cboGeo.Visible = True
cboEnvi.Visible = False
cboHis.Visible = False
cboPop.Visible = False
cboAll.Visible = False
cbo1.Visible = False

ElseIf Option1(2).Value = True Then
cboBio.Visible = False
cboGeo.Visible = False
cboEnvi.Visible = True
cboHis.Visible = False
cboPop.Visible = False
cboAll.Visible = False
cbo1.Visible = False

ElseIf Option1(3).Value = True Then
cboBio.Visible = False
cboGeo.Visible = False
cboEnvi.Visible = False
cboHis.Visible = True
cboPop.Visible = False
cboAll.Visible = False
cbo1.Visible = False

ElseIf Option1(4).Value = True Then
cboBio.Visible = False
cboGeo.Visible = False
cboEnvi.Visible = False
cboHis.Visible = False
cboPop.Visible = True
cboAll.Visible = False
cbo1.Visible = False

ElseIf Option1(5).Value = True Then
cboBio.Visible = False
cboGeo.Visible = False
cboEnvi.Visible = False
cboHis.Visible = False
cboPop.Visible = False
cboAll.Visible = True
cbo1.Visible = False

End If
End Sub
Private Sub Form_Load()
   
    Option1(0).Caption = "Biology"
    Option1(1).Caption = "Geography"
    Option1(2).Caption = "Environment"
    Option1(3).Caption = "History"
    Option1(4).Caption = "Population"
    Option1(5).Caption = "All Subjects"
    
  'tell the user to choose one subjet
    cbo1.AddItem "Choose one subject"
    
    cboBio.AddItem "Lesson_Bio All"
    cboBio.AddItem "Lesson_Bio 1"
    cboBio.AddItem "Lesson_Bio n"

    cboGeo.AddItem "Lesson_Geo All"
    cboGeo.AddItem "Lesson_Geo 1"
    cboGeo.AddItem "Lesson_Geo n"
    
    cboEnvi.AddItem "Lesson_Envi All"
    cboEnvi.AddItem "Lesson_Envi 1"
    cboEnvi.AddItem "Lesson_Envi n"
    
    cboHis.AddItem "Lesson_His All"
    cboHis.AddItem "Lesson_His 1"
    cboHis.AddItem "Lesson_His n"
    
    cboPop.AddItem "Lesson_Pop All"
    cboPop.AddItem "Lesson_Pop 1"
    cboPop.AddItem "Lesson_Pop n"
     
    cboAll.AddItem "Lesson All"
    cboAll.AddItem "Lesson_Bio 1"
    cboAll.AddItem "Lesson_Bio n"
    cboAll.AddItem "Lesson_Geo 1"
    cboAll.AddItem "Lesson_Geo n"
    cboAll.AddItem "Lesson_Envi 1"
    cboAll.AddItem "Lesson_Envi n"
    cboAll.AddItem "Lesson_His 1"
    cboAll.AddItem "Lesson_His n"
    cboAll.AddItem "Lesson_Pop 1"
    cboAll.AddItem "Lesson_Pop n"

    'add the values for each option
    'note the trailing space is important
    
    Option1(0).Tag = "1 2 3 "
         
    Option1(1).Tag = "4 5 6 "
    
    Option1(2).Tag = "7 8 9 "
    
    Option1(3).Tag = "10 11 12 "
    
    Option1(4).Tag = "13 14 15 "
    
    Option1(5).Tag = "1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 "
    
    End Sub
Private Sub cmdQ_Click()
Dim i As Integer
Dim strNumString As String
Dim strNums() As String

    'see which options is checked and
    'add the possible numbers to a string
    For i = 0 To 5
        If Option1(i).Value = True Then
            strNumString = strNumString & Option1(i).Tag
        End If
    Next i
        If Len(strNumString) = 0 Then
        MsgBox "Check one option!", vbInformation, "Notice"
        Exit Sub
    End If

    'Spliting the number string on the space will
    'add all the possiblities to an array
    strNums = Split(strNumString, " ")
    
    'Select a random index from the array
    Randomize
    i = Int(Rnd() * (UBound(strNums)))
    
    'display the results
    txtQC.Text = strNums(i)
  
End Sub
Private Sub about_Click()
frmAbout.Show
End Sub
Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdDA_Click()
txtA.Text = ""
End Sub
Private Sub cmdDAll_Click()
txtSubject.Text = ""
txtLesson.Text = ""
txtQC.Text = ""
txtQ.Text = ""
txtA.Text = ""
Option1(0).Value = Unchecked
Option1(1).Value = Unchecked
Option1(2).Value = Unchecked
Option1(3).Value = Unchecked
Option1(4).Value = Unchecked
Option1(5).Value = Unchecked

End Sub
Private Sub txtQC_Change()
txtA.Text = ""
txtSubject.Text = ""
txtLesson.Text = ""

If txtQC.Text = "1" Then
txtQ.Text = "Q1"
txtSubject.Text = "Biology"
txtLesson.Text = "Lesson_Bio 1"

ElseIf txtQC.Text = "2" Then
txtQ.Text = "Q2"
txtSubject.Text = "Biology"
txtLesson.Text = "Lesson_Bio 1"

ElseIf txtQC.Text = "3" Then
txtQ.Text = "Q3"
txtSubject.Text = "Biology"
txtLesson.Text = "Lesson_Bio n"

ElseIf txtQC.Text = "4" Then
txtQ.Text = "Q4"
txtSubject.Text = "Geography"
txtLesson.Text = "Lesson_Geo 1"

ElseIf txtQC.Text = "5" Then
txtQ.Text = "Q5"
txtSubject.Text = "Geography"
txtLesson.Text = "Lesson_Geo 1"

ElseIf txtQC.Text = "6" Then
txtQ.Text = "Q6"
txtSubject.Text = "Geography"
txtLesson.Text = "Lesson_Geo n"

ElseIf txtQC.Text = "7" Then
txtQ.Text = "Q7"
txtSubject.Text = "Environment"
txtLesson.Text = "Lesson_Envi 1"

ElseIf txtQC.Text = "8" Then
txtQ.Text = "Q8"
txtSubject.Text = "Environment"
txtLesson.Text = "Lesson_Envi 1"

ElseIf txtQC.Text = "9" Then
txtQ.Text = "Q9"
txtSubject.Text = "Evironment"
txtLesson.Text = "Lesson_Envi n"

ElseIf txtQC.Text = "10" Then
txtQ.Text = "Q10"
txtSubject.Text = "Population"
txtLesson.Text = "Lesson_Pop 1"

ElseIf txtQC.Text = "11" Then
txtQ.Text = "Q11"
txtSubject.Text = "Population"
txtLesson.Text = "Lesson_Pop 1"

ElseIf txtQC.Text = "12" Then
txtQ.Text = "Q12"
txtSubject.Text = "Population"
txtLesson.Text = "Lesson_Pop n"

End If
End Sub
Private Sub cmdA_Click()
If txtQC.Text = "1" Then
txtA.Text = "A1"

ElseIf txtQC.Text = "2" Then
txtA.Text = "A2"

ElseIf txtQC.Text = "3" Then
txtA.Text = "A3"

ElseIf txtQC.Text = "4" Then
txtA.Text = "A4"

ElseIf txtQC.Text = "5" Then
txtA.Text = "A5"

ElseIf txtQC.Text = "6" Then
txtA.Text = "A6"

ElseIf txtQC.Text = "7" Then
txtA.Text = "A7"

ElseIf txtQC.Text = "8" Then
txtA.Text = "A8"

ElseIf txtQC.Text = "9" Then
txtA.Text = "A9"

ElseIf txtQC.Text = "10" Then
txtA.Text = "A10"

ElseIf txtQC.Text = "11" Then
txtA.Text = "A11"

ElseIf txtQC.Text = "12" Then
txtA.Text = "A12"

End If
End Sub