<pre lang="msil">
Private Sub lsvBarang_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lsvBarang.SelectedIndexChanged
Try
Dim cari As Integer
cari = lsvBarang.FocusedItem.Index
txtCari.Text = (lsvBarang.Items(cari).SubItems(1).Text)
DataIDM = (lsvBarang.Items(cari).SubItems(1).Text)
DataNama = (lsvBarang.Items(cari).SubItems(3).Text)
DataTipe = (lsvBarang.Items(cari).SubItems(7).Text)
Catch ex As Exception
End Try
End Sub