Visual Lanjutan Teori 4 Latihan 3 (Array)

Public Class latihan3
    '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 nih mo keluar??", vbYesNo, "konfirmasi")
        If pesan = vbYes Then
            End
        End If
    End Sub

    Private Sub latihan3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListView1.GridLines = True
        ListView1.View = View.Details
        ListView1.Columns.Add("Nim")
        ListView1.Columns.Add("Nama")
        ListView1.Columns.Add("Alamat")
        TextBox1.Text = 1
        TextBox1.Focus()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim arr(3) As String
        arr(1) = TextBox1.Text
        arr(2) = TextBox2.Text
        arr(3) = TextBox3.Text

        Dim list_item As ListViewItem
        list_item = New ListViewItem
        list_item = ListView1.Items.Add(arr(1))
        list_item.SubItems.Add(arr(2))
        list_item.SubItems.Add(arr(3))

        TextBox1.Text = TextBox1.Text + 1
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox2.Focus()
    End Sub
End Class