Membuat Angka Genap Ganjil dengan VB

hay guys, mau share nih tentang bikin program pemisahan angka genap ganjil dengan visual basic.
pada jendela awal. bikin seperti contoh di atas.
itu pakai 1 abel, 3 textbox dan 3 comman button.
disusun pokonya mirip aja sama contoh gambar diatas.

kemudian, untuk kodingannya

Private Sub Command1_Click()

N = Val(Text1)

List1.Clear

For i = 2 To N Step 2

List1.AddItem i

Next i

End Sub

Private Sub Command2_Click()

N = Val(Text1)

List2.Clear

For i = 1 To N Step 2

List2.AddItem i

Next i

End Sub

Private Sub Command3_Click()

Text1.Text = " "

End Sub

oke, semoga bermanfaat ya :)