По клику на ListView в Label отоборажается информация из SubItems

Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
        If ListView1.SelectedItems.Count > 0 Then
           With ListView1.SelectedItems(0)
                If .SubItems(1).Text = "" Then
                    Label1.Text = "No info"
                Else
                    Label1.Text = .SubItems(1).Text
                End If
                If .SubItems(2).Text = "" Then
                    Label2.Text = "No info"
                Else
                    Label2.Text = .SubItems(2).Text
                End If
                If .SubItems(3).Text = "" Then
                    Label3.Text = "No info"
                Else
                    Label3.Text = .SubItems(3).Text
                End If
               'И т.д.
          End With
        End If
End Sub

   If ListView1.SelectedItems.Count = 0 Then Return
 
        Select Case ListView1.SelectedItems(0).SubItems(1).Text
            Case ""
                Label1.Text = "No info"
            Case Else
                Label1.Text = ListView1.SelectedItems(0).SubItems(1).Text
        End Select
 
        If ListView1.SelectedItems(0).SubItems(2).Text = "" Then
            Label2.Text = "No info"
        Else
            Label2.Text = ListView1.SelectedItems(0).SubItems(2).Text
        End If
        If ListView1.SelectedItems(0).SubItems(3).Text = "" Then
            Label3.Text = "No info"
        Else
            Label3.Text = ListView1.SelectedItems(0).SubItems(3).Text
        End If

   Private Sub ListView1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseMove
        Dim s As String = String.Empty
        For i As Integer = 0 To ListView1.Items.Count - 1
            If ListView1.GetItemRect(i).Contains(e.Location) Then
                s = ListView1.Items(i).SubItems(4).Text
                Exit For
            End If
        Next
        ToolTip1.SetToolTip(sender, s)
        'ToolTip1.Show(s, sender)
    End Sub