Code:
        Dim intIndex, i, intTemp, intItem As Integer

        Dim intLow As Integer = 1 '// Doesn't allow anything over 99 to be used
        Dim intHigh As Integer = 99 '// Doesn't allow anything over 99 to be used

        Randomize() '// Randomize function
        
            For i = 0 To intNumArray.Length - 1 '// Will run the loop for every element in the array
                intIndex += 1 '// Adds 1 to intItem every time the loop is run
                intNumArray(i) = (intHigh - intLow) * Rnd() '// Generates a random number


                If intNumArray(i) Mod 2 = 0 Then
                    intTemp = intNumArray(i)
                    intEvenNumbers(intTemp) = intTemp

                ElseIf intTemp Mod 2 <> 0 Then
                    intTemp = intNumArray(i)
                    intOddNumbers(intTemp) = intTemp

                End If

                lstOutput.Items.Add(intIndex & vbTab & intNumArray(i)) '// Outputs the index number and the random number

            Next i
      lstoutput.items.add("The Even Numbers are : " & intEvenNumbers(inttemp) & vbcrlf & "The odd numbers are : " & intOddNumbers(inttemp))
Here is the source code of what I came up with. Whats wrong with it? I run it and when i hit the generate button it just closes out...