Bermain Button

Public Class Form_petugas

    Dim listtxt(3) As String

    Dim listitem As ListViewItem

    Private Sub Form_petugas_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

        Call Bersih()

    End Sub

    Sub Bersih()

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

    End Sub

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

        Call listview()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        listtxt(0) = Trim(TextBox1.Text)

        listtxt(1) = Trim(TextBox2.Text)

        listtxt(2) = Trim(TextBox3.Text)

        listitem = New ListViewItem(listtxt)

        ListView1.Items.Add(listitem)

    End Sub

    Sub listview()

        ListView1.View = View.Details

        ListView1.Columns.Add("Kode Petugas", 100, HorizontalAlignment.Center)

        ListView1.Columns.Add("Nama Petugas", 300, HorizontalAlignment.Center)

        ListView1.Columns.Add("Shift", 50, HorizontalAlignment.Center)

    End Sub

    Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged

        TextBox1.Text = e.Item.Text

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        If Button4.Text = "Keluar" Then

            MsgBox("Anda Yakin Akan Keluar? ")

            Me.Close()

        Else

            Call Bersih()

        End If

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        'Call hapus()

        ListView1.Items.RemoveAt(0)

        ListView1.Items.RemoveAt(1)

        ListView1.Items.RemoveAt(2)

    End Sub

    Sub hapus()

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        ListView1.Items.Clear()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Call edit()

    End Sub

    Sub edit()

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged

    End Sub

End Class