Public Class Form4
Sub listview()
Dim col As ColumnHeader
col = New ColumnHeader
With col
.Text = "Kode Masuk"
End With
With Me.ListView1
.Columns.Add(col)
End With
End Sub
Sub add()
TextBox1.Clear()
TextBox1.Focus()
End Sub
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
listview()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
add()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListView1.Items.Item(0).SubItems.Add("")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
End Class
problem here
ListView1.Items.Item(0).SubItems.Add("")
help me fixing it thanks


Sign In
Create Account


Back to top









