Visual Lanjutan Teori 4 Latihan 1 (Array)

Public Class Form1
    'rafif karunia rahman 2017230174
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim makan(3) As String
        makan(0) = "Nasi Goreng"
        makan(1) = "Ayam Goreng"
        makan(2) = "Nasi Rames"
        makan(3) = "Gado-Gado"
        For Each element As String In makan
            ComboBox1.Items.Add(element)
        Next
        ComboBox1.Text = "Menu Makanan"
    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 nih mo keluar??", vbYesNo, "konfirmasi")
        If pesan = vbYes Then
            End
        End If
    End Sub

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

    End Sub
End Class