Public v_cuser(1, 9) As String
    'Wertetabelle:
    'Wert | Bezeichnung
    '0    | ID
    '1    | Login
    '2    | PWD
    '3    | Titel
    '4    | Vorname
    '5    | Nachname
    '6    | Rechte
    '7    | Aktiv
    '8    | E-Mail
    '9    | Mobil

    Private Sub cuser_laden()
        'Der aktuelle User soll in das Listview geladen werden:
        Dim item As ListViewItem
 
 
 
        With lvw_cuser
            .Items.Clear()
            Dim i As Integer
            For i = 1 To UBound(v_cuser, 2)
                If Not v_cuser(0, i) = "" Then
                    .Items.Add(New ListViewItem(v_cuser(1, i)))
 
                End If
            Next i
        End With
    End Sub

Imports System.Windows.Forms
 
Public Sub New(ByVal owner As ListViewItem, ByVal [text] As String)
 
 
Public Class haupt

mfG.
Stephan