Lista H

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For X As Integer = 1 To CInt(txtv1.Text)
            For Cont = 2 To X - 1
                If X Mod Cont <> 0 Then
                    ListBox1.Items.Add(X)
                End If
            Next
        Next
    End Sub
End Class