Ajuda com Visual Estudio?

[feu2012]

Public Class frmNumeros

    Dim N1, N2, NPar, NImpar As Byte
    Dim CONT As Integer

    Private Sub cmdSair_Click(sender As Object, e As EventArgs) Handles cmdSair.Click
        End

    End Sub

    Private Sub cmdLimpar_Click(sender As Object, e As EventArgs) Handles cmdLimpar.Click
        txtN1.Text = ""
        txtN2.Text = ""
        Lblnumeros.Text = ""
        N1 = Nothing
        N2 = Nothing
        NPar = Nothing
        NImpar = Nothing
    End Sub

    Private Sub cmdListar_Click(sender As Object, e As EventArgs) Handles cmdListar.Click
        N1 = CByte(txtN1.Text)
        N2 = CByte(txtN2.Text)
        For CONT = N1 To N2
            Lblnumeros.Text = Lblnumeros.Text & " " & CONT
        Next
        If (N1 Mod 2) = 0 Then
            NPar = N1
            NImpar = N1 + 1
        Else
            NPar = N1 + 1
            NImpar = N1
        End If
        For Me.CONT = NPar To N2 Step 2
            lblpares.Text = lblpares.Text & " " & CONT
        Next

        For Me.CONT = NImpar To N2 Step 2
            lblímpares.Text = lblímpares.Text & " " & CONT
        Next
    End Sub

    Private Sub frmNumeros_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class

Gostaria que alguém me ajudasse a resolver a completar o terceiro comando.

Números primos dentro do intervalo, reparem que os números pares e os números ímpares já foram resolvidos e apresentados, e possui o código fonte.Preciso que me ajudem a resolver os números primos dentro do intervalo, como mostra essa figura que adicionei.Agradeço que puder me ajudar.