file.vb
PublicClass Form1
PrivateSub btnAdd_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnAdd.Click
ListBox1.Items.Add(CInt(TextBox1.Text))
TextBox1.Text = ""
EndSub
PrivateSub btnPrime_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnPrime.Click
Dim i AsInteger
Dim cnt AsInteger
Dim num AsInteger
Dim f AsInteger
Dim j AsInteger
cnt = ListBox1.Items.Count
Try
For i = 0 To cnt - 1
num = ListBox1.Items(i)
f = 0
For j = 2 To num 2
If num Mod j = 0 Then
f = 1
EndIf
Next
If f = 0 Then
ListBox2.Items.Add(ListBox1.Items(i))
ListBox1.Items.RemoveAt(i)
cnt = cnt - 1
i = i - 1
EndIf
Next
Catch ex As Exception
EndTry
EndSub
EndClass