Non so se hai già risolto, ma io ho fatto in questo modo:

in una form ho inserito un button e una textbox multilinea con scrollbar verticale, quindi ho scritto questo codice:
codice:
Public Class Form1

    Dim numero As Integer
    Dim elenco(0 To 1000) As Integer

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        numero = CType(InputBox("Inserisci un nuero intero: ", "Calcolo numeri primi"), Integer)

        For i As Integer = 0 To numero - 1
            elenco(i) = 1 + i
        Next

        CalcolaNumeriPrimi(numero)

        For i As Integer = 0 To numero - 1
            If elenco(i) <> -1 Then
                TextBox1.Text += elenco(i).ToString + Environment.NewLine
            End If
        Next

    End Sub

    Private Sub CalcolaNumeriPrimi(ByVal num As Integer)

        Dim cifra As Integer = 2
        Dim contatore As Integer = 0

        For k As Integer = 0 To num - 1
            For i As Integer = contatore To num - 1
                If elenco(i) <> 1 Then
                    If elenco(i) Mod (cifra) = 0 And elenco(i) <> cifra Then
                        elenco(i) = -1
                    End If

                End If
            Next
            cifra += 1
            contatore += 1
        Next

    End Sub

End Class