Visual Lanjutan Teori 3 Latihan 5 (Nested For)

Public Class latihan5
    'rafif karunia rahman 2017230174'
    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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x, y As Integer
        For x = 1 To 3
            For y = 1 To 2
                ListBox1.Items.Add(x & y)
            Next y
        Next x
    End Sub

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

    End Sub
End Class