Visual Lanjutan PRAKTEK 3 Kasus 3 (For Next)

Public Class kasus3
    'RAFIF KARUNIA RAHMAN 2017230174
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim angka As Integer
        For angka = TextBox1.Text To TextBox2.Text
            If angka Mod 2 = 0 Then
                ListBox2.Items.Add(angka)
            Else
                ListBox1.Items.Add(angka)
            End If
        Next angka
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim pesan As String
        pesan = MsgBox("Yakin Ingin Keluar??", vbYesNo, "Konfirmasi")
        If pesan = vbYes Then
            End
        End If
    End Sub

    Private Sub kasus3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class