Imports System
Imports System.IO
Imports System.Data.OleDb
Imports System.Windows.Forms.VisualStyles.VisualStyleElement.TaskbarClock
Imports System.Collections
Public Class Form1
    Dim dateiauswahl As String, modus As String, scheck1 As String, scheck2 As String, scheck3 As String, scheck4 As String, nu As Byte, nu1 As Byte
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim ofd As New OpenFileDialog
        Location = New Point(0, 0)
        ListView1.Items.Clear()
        ListView1.Columns.Clear()
        ListView1.View = View.Details
        ListView1.FullRowSelect = True
        ListView1.Items.Clear()
        With (ListView1.Columns)
            .Add("Nr")
            .Add("Pnutzer")
            .Add("Art")
            .Add("Programm")
            .Add("User")
            .Add("Passwort")
            .Add("Datum")
            .Add("Lizenznummer")
            .Add("Bemerkung")
        End With
        For i = 1 To 10
            With ListView1.Items
                With .Add(i)
                    .SubItems.Add("Lutz " & i)
                    .SubItems.Add("Computer ")
                    .SubItems.Add("DriverBooster")
                    .SubItems.Add("Lutz")
                    .SubItems.Add("Passwort")
                    .SubItems.Add("10.10.2022")
                    .SubItems.Add("1235U")
                    .SubItems.Add("Test")
                End With
            End With
        Next
        ListView1.Columns(0).Width = 30
        ListView1.Columns(1).Width = 50
        ListView1.Columns(2).Width = 70
        ListView1.Columns(3).Width = 100 '200
        ListView1.Columns(4).Width = 100 '180
        ListView1.Columns(5).Width = 100 '150
        ListView1.Columns(6).Width = 70
        ListView1.Columns(7).Width = 100 '350
        ListView1.Columns(8).Width = 100 '150
    End Sub
    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
        Dim test As String, uu As String
        If (Me.ListView1.SelectedItems.Count > 0) Then
            uu = ListView1.SelectedItems.Item(0).Text
            Text13.Text = ListView1.SelectedItems(0).SubItems(0).Text & "," & ListView1.SelectedItems(0).SubItems(1).Text & "," & ListView1.SelectedItems(0).SubItems(2).Text _
                & "," & ListView1.SelectedItems(0).SubItems(3).Text & "," & ListView1.SelectedItems(0).SubItems(4).Text & "," & ListView1.SelectedItems(0).SubItems(5).Text _
                & "," & ListView1.SelectedItems(0).SubItems(6).Text & "," & ListView1.SelectedItems(0).SubItems(7).Text & "," & ListView1.SelectedItems(0).SubItems(8).Text
        End If
        For ii = 0 To ListView1.SelectedItems.Count - 1
            test = ListView1.SelectedItems.Item(0).Text()
        Next
        Me.Refresh()
    End Sub
    Private Sub Button_Click(sender As System.Object, e As System.EventArgs) Handles Button.Click
        End
    End Sub
    Private Sub CodeErscheinung_Click(sender As System.Object, e As System.EventArgs) Handles CodeErscheinung.Click
        Form2.Show()
    End Sub
End Class