Finishing up some visual basic programs

Public Class Form1

'Matthew Woods Prime List Lab

Dim prim As Integer

Dim count As Integer = 0

Dim i As Integer

Dim imPrime As Boolean = False

Private Sub btnEnter_Click(sender As Object, e As EventArgs) Handles btnEnter.Click

prim = CInt(Me.txtNumbers.Text)

If prim < 3 Then

MsgBox("Please enter a bigger number")

Return

End If

Me.lstPrime.Items.Clear()

For i As Integer = 1 To prim

Dim isPrime As Boolean = True

For j As Integer = 2 To i

If (i Mod j <> 0) Then count = count + 1

Next

If count = (i - 2) Then Me.lstPrime.Items.Add(i)

count = 0

Next

If CInt(txtNumbers.Text) > 100 Then

MessageBox.Show("Please enter a number 1 - 100.")

txtNumbers.Text = String.Empty

lstPrime.Items.Clear()

End If

End Sub

Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click

Me.Close()

End Sub

Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click

txtNumbers.Text = String.Empty

lstPrime.Items.Clear()

End Sub

Private Sub btnShow_Click(sender As Object, e As EventArgs) Handles btnShow.Click

Do While prim >= 2

For i As Integer = 2 To prim

If prim Mod i = 0 Then

imPrime = False

Exit For

Else

imPrime = True

lstPrime.Items.Add(prim)

End If

Next

Loop

If imPrime = True Then

lstPrime.Items.Add(prim)

End If

End Sub

End Class