Dim selection As ListViewItem = lstDays.GetItemAt(e.X, e.Y)


        If (selection IsNot Nothing) Then
            lblCustID.Text = selection.SubItems(2).Text
            FillCustData(selection.SubItems(2).Text)
        Else
            MsgBox("There is no current appointment set for " & selection.SubItems(2).Text & " Would you like to make one?")
            Return
        End If

if ListView1.SelectedItems.Count > 0 then
Dim selection As ListViewItem = ListView1.SelectedItems(0)
  ' Your Selected code
End If

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim list As ListViewItem
        list = ListView1.Items.Add("One")
        list.SubItems.Add(" Sub Item 1")
        list = ListView1.Items.Add("Two")
        list.SubItems.Add(" Sub Item 2")
        ListView1.Columns.Add("Name")
        ListView1.Columns.Add("Address", 150)
        ListView1.View = Windows.Forms.View.Details
        ListView1.FullRowSelect = True
    End Sub
 
    Private Sub ListView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.Click
        If ListView1.SelectedItems.Count > 0 Then
            Dim list As ListViewItem = ListView1.SelectedItems(0)
            MsgBox(list.Text & "  " & list.SubItems(1).Text)
        End If
    End Sub

    Private Sub ListView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.Click
        If ListView1.SelectedItems.Count > 0 Then
            Dim list As ListViewItem = ListView1.SelectedItems(0)
            'Check whether subitems exists
            If list.SubItems.Count > 1 Then
                'Here also check whether they are empty
                If list.SubItems(1).Text <> "" Then
                    MsgBox(list.Text & "  " & list.SubItems(1).Text)
                Else
                    MsgBox("Incomplete")
                End If
            Else
                MsgBox("Incomplete")
            End If
        End If
    End Sub