Visual Lanjutan Praktek 5 Kasus 1 (Procedure dan Function)

Public Class Rafif_kas1
    'rafif karunia rahman 2017230174
    Sub satu()
        Me.ComboBox1.Items.Add("Islam")
        Me.ComboBox1.Items.Add("Kristen Protestan")
        Me.ComboBox1.Items.Add("Kristen Katolic")
        Me.ComboBox1.Items.Add("Hindu")
        Me.ComboBox1.Items.Add("Buddha")
    End Sub

    Sub dua()
        Me.ComboBox2.Items.Add("Manajemen Informatika")
        Me.ComboBox2.Items.Add("Teknik Informatika")
        Me.ComboBox2.Items.Add("Sistem Informatika")
    End Sub

    Sub tiga()
        Me.ComboBox3.Items.Add("D1")
        Me.ComboBox3.Items.Add("D2")
        Me.ComboBox3.Items.Add("D3")
        Me.ComboBox3.Items.Add("D4")
        Me.ComboBox3.Items.Add("S1")
        Me.ComboBox3.Items.Add("S2")
        Me.ComboBox3.Items.Add("S3")

    End Sub
    Sub empat()
        Me.ListBox1.Items.Add("Bandung")
        Me.ListBox1.Items.Add("Depok")
        Me.ListBox1.Items.Add("Jakarta")
        Me.ListBox1.Items.Add("Bekasi")
        Me.ListBox1.Items.Add("Manado")
        Me.ListBox1.Items.Add("Medan")
        Me.ListBox1.BackColor = Color.Silver
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim pesan As String
        pesan = MsgBox("Yakin 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
        Me.Text = "isnaa"
        satu()
        dua()
        tiga()
        empat()
    End Sub
End Class