Public Class Form1
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As Integer
For x = 2 To Val(TextBox1.Text)
ListBox1.Items.Add(x)
ListBox1.Items.Add(" * " & x)
If x Mod 4 = 0 Then
Else
ListBox2.Items.Add(x)
End If
If x Mod 3 <> 2 Then
Else
ListBox3.Items.Add(x)
End If
Next
End Sub
End Class
