Index was out of range. Must be non-negative and less than the size of the collection
 

singlecourse = Session("singlecourse")

                    ename.Text = singlecourse.CourseName

                    Session("testname") = singlecourse.CourseName

                    Seclist = que.GetSection(singlecourse.CourseCode)

                    Qnolist = que.GetQnumber(singlecourse.CourseCode)

                    Session("totsec") = Seclist

                    Session("totqno") = Qnolist

                    Session("queslist") = queslist

                    t1.Text = Profile.Ttime

                    pos = InStr(t1.Text, ":")

                    h1.Value = t1.Text.Substring(0, pos - 1)

                    'h2.Value = t1.Text.Substring(pos, 2)

                    h2.Value = Right(t1.Text, t1.Text.Length - pos)

                End If

            Else

                ViewState("qno") = CType(Session("summary"), Integer)

                Session("summary") = ""

                summbtn.Visible = True

                queslist = Session("queslist")

                ename.Text = Session("testname")

                t1.Text = Session("etime")

                pos = InStr(t1.Text, ":")

                h1.Value = t1.Text.Substring(0, pos - 1)

                h2.Value = t1.Text.Substring(pos, 2)

            End If

queserial.Text = "Question : " + CType(queslist.Item(ViewState("qno")).QNo, String) & " of " & queslist.Count(Error : Index was out of range. Must be non-negative and less than the size of the collection.
Parameter name: index) aquestion.Text = queslist.Item(ViewState("qno")).Question