Private Sub ListView1_DblClick()
  With ListView1
    If Not .SelectedItem Is Nothing Then
      lblComputerName.Caption = .SelectedItem.Text
      lblIPAdresse.Caption = .SelectedItem.SubItems(1)
    End If
  End With
End Sub