如何获取ListView列的数据？

[小小小菜鸟_]

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListView1.FullRowSelect = True
        ListView1.View = View.Details

        ListView1.Columns.Add("ID", 80)
        ListView1.Columns.Add("Name", 200)

        Dim li As ListViewItem = New ListViewItem()
        li.Text = "1"
        li.SubItems.Add("张三")
        ListView1.Items.Add(li)

    End Sub

    Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick
        '如何获取 选中的 ID 与 name 的值 ?
    End Sub
 
End Class

[colorall]

 Dim ID As String = ListView1.SelectedItems(0).SubItems(0).Text
        Dim Name As String = ListView1.SelectedItems(0).SubItems(1).Text