Visual Lanjutan Praktek 4 Kasus 1 (Array 2 Dimensi)

Public Class Rafif_kas2
    'rafif karunia rahman
    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 kasusaarray_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Focus()
        Dim arr(4, 1) As String
        arr(0, 0) = "ID"
        arr(0, 1) = "NAMA"
        arr(1, 0) = "JENIS KELAMIN "
        arr(1, 1) = "JABATAN"
        arr(2, 0) = "ALAMAT"
        arr(2, 1) = "TTL"
        arr(3, 0) = "TELP/HP"
        arr(3, 1) = "EMAIL"
        arr(4, 0) = "Laki-laki"
        arr(4, 1) = "Perempuan"
        ListView1.GridLines = True
        ListView1.View = View.Details
        For baris = 0 To 1
            For kolom = 0 To 1
                ListView1.Columns.Add(arr(baris, kolom), 100)
            Next kolom
        Next baris
        For baris = 4 To 4
            For kolom = 0 To 1
                ComboBox1.Items.Add(arr(baris, kolom))
            Next kolom
        Next baris
        ListView1.Columns.Add("Alamat", 125)
        ListView1.Columns.Add("TTL", 105)
        ListView1.Columns.Add("TELP/HP", 105)
        ListView1.Columns.Add("EMAIL", 110)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim arr(7) As String
        arr(0) = TextBox1.Text
        arr(1) = TextBox2.Text
        arr(2) = ComboBox1.Text
        arr(3) = TextBox3.Text
        arr(4) = TextBox4.Text
        arr(5) = TextBox5.Text
        arr(6) = TextBox6.Text
        arr(7) = TextBox7.Text
        Dim listitem As ListViewItem
        listitem = New ListViewItem
        listitem = ListView1.Items.Add(arr(0))
        listitem.SubItems.Add(arr(1))
        listitem.SubItems.Add(arr(2))
        listitem.SubItems.Add(arr(3))
        listitem.SubItems.Add(arr(4))
        listitem.SubItems.Add(arr(5))
        listitem.SubItems.Add(arr(6))
        listitem.SubItems.Add(arr(7))
        TextBox2.Clear()
        ComboBox1.SelectedIndex = -1
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        TextBox7.Clear()
        TextBox1.Focus()
        TextBox1.Clear()
    End Sub
End Class