Option Strict On
Option Explicit On

Public Class frmMain

    Private Sub btnGenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenerate.Click
        Dim cExistingQuestions As New Collection
        Dim bValidQuestion As Boolean = False

        txtQuestion1.Text = randomPWQuestion(randomNumber(0, 8))
        cExistingQuestions.Add(txtQuestion1.Text, txtQuestion1.Text)
        While bValidQuestion = False
            Dim strQuestion2 As String = randomPWQuestion(randomNumber(0, 8))
            If cExistingQuestions.Contains(strQuestion2) Then
                bValidQuestion = False
            Else
                bValidQuestion = True
                txtQuestion2.Text = strQuestion2
            End If
        End While

    End Sub

    Private Function generateRandom(ByVal iLowerBound As Integer, ByVal iUpperBound As Integer) As Integer
        Randomize()
        Dim r As New Random
        Return r.Next(iLowerBound, iUpperBound)
    End Function

    Public Function randomNumber(ByVal iLower As Integer, ByVal iUpper As Integer) As Integer
        Return generateRandom(iLower, iUpper)
    End Function

    Private Function randomPWQuestion(ByVal iRandom As Integer) As String
        Select Case iRandom
            Case 0
                Return "Where did you meet your spouse?"
            Case 1
                Return "What was the name of your first school?"
            Case 2
                Return "Who was your childhood hero?"
            Case 3
                Return "What is your favorite pastime?"
            Case 4
                Return "What is your favorite sports team?"
            Case 5
                Return "What is your father's middle name?"
            Case 6
                Return "What was your high school mascot?"
            Case 7
                Return "What make was your first car or bike?"
            Case 8
                Return "What is your pet's name?"
        End Select
        Return "Where did you meet your spouse?"
    End Function

End Class

Option Strict On
Option Explicit On

Public Class frmMain

    Private _iQuestionCount As Integer

    Private Sub btnGenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenerate.Click
        _iQuestionCount = CInt(nudQuestionCount.Value)

        Dim iIndex As Integer
        Dim iRandomValue As Integer
        Dim bValidQuestion As Boolean = False
        Dim aQuestions(_iQuestionCount - 1) As Integer

        'set all the elements to -1 because the default 0 was tripping up the serach function.
        For iIndex = 0 To _iQuestionCount - 1
            aQuestions(iIndex) = -1
        Next

        For iIndex = 0 To _iQuestionCount - 1
            While bValidQuestion = False
                iRandomValue = randomNumber(0, 8)
                If SearchArray(aQuestions, iRandomValue) = True Then
                    bValidQuestion = False
                Else
                    bValidQuestion = True
                    aQuestions(iIndex) = iRandomValue
                End If
            End While
            bValidQuestion = False
        Next

        'populate the questions to the form

        'clear the form if needed
        flpMain.Controls.Clear()

        For iIndex = 0 To aQuestions.Length - 1
            Dim lQuestion As New Label
            lQuestion.Size = New System.Drawing.Size(485, 13)
            lQuestion.Text = "(" + CStr(aQuestions(iIndex)) + ") " + randomPWQuestion(aQuestions(iIndex))
            flpMain.Controls.Add(lQuestion)
        Next

    End Sub

    Private Function SearchArray(ByVal aArray As Array, ByVal iValue As Integer) As Boolean
        Dim iArrayValue As Integer
        For Each iArrayValue In aArray
            If iArrayValue = iValue Then
                Return True
            End If
        Next
        Return False
    End Function

    Private Function generateRandom(ByVal iLowerBound As Integer, ByVal iUpperBound As Integer) As Integer
        Randomize()
        Dim r As New Random
        Return r.Next(iLowerBound, iUpperBound)
    End Function

    Public Function randomNumber(ByVal iLower As Integer, ByVal iUpper As Integer) As Integer
        Return generateRandom(iLower, iUpper)
    End Function

    Private Function randomPWQuestion(ByVal iRandom As Integer) As String
        Select Case iRandom
            Case 0
                Return "Where did you meet your spouse?"
            Case 1
                Return "What was the name of your first school?"
            Case 2
                Return "Who was your childhood hero?"
            Case 3
                Return "What is your favorite pastime?"
            Case 4
                Return "What is your favorite sports team?"
            Case 5
                Return "What is your father's middle name?"
            Case 6
                Return "What was your high school mascot?"
            Case 7
                Return "What make was your first car or bike?"
            Case 8
                Return "What is your pet's name?"
        End Select
        Return "Where did you meet your spouse?"
    End Function

End Class

SELECT TOP 10 *
FROM tbl_list
ORDER BY RND(ID);

Dim Rnd As Random = new Random()
Dim Index as Integer = Rnd.Next(1, 101)

Dim Index as Integer
Index = Int((100 - 1 + 1) * Rnd) + 1

Dim Questions As New List(Of String)()
' Add the 100 questions to the list here
Questions.Add("What beath your name?")
Questions.Add("How young are you?")
' --

' Retrieve the question at position Index
Dim MyQuestion As String = Questions(Index - 1)

Questions.RemoveAt(Index)