warham2012

  Dim numValue As Integer = 0
  Dim maxNumValue As Integer = 0

    Private Sub btnPrime_Click(sender As Object, e As EventArgs) Handles btnPrime.Click
        lstPrimeNumbers.Items.Clear()
        numValue += 1
        maxNumValue = txtMaxNumber.Text
            For Me.numValue = 0 To maxNumValue
                isNumberPrime()
            Next

warham2012

Public Class Form1
    Dim numericalGrade As Integer = 0
    Dim creditHrs As Double = 0
    Dim qualPoints As Double = 0
    Dim counter As Integer = 0

    Public Sub btnRecord_Click(sender As Object, e As EventArgs) Handles btnRecord.Click
        totalValues()
    End Sub