Option Strict On
Option Explicit On 
 
Public Class Form5
    Inherits System.Windows.Forms.Form
 
'// Designer
 
    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
        If Me.ListView1.SelectedIndices.Count = 0 Then Return
        Dim usr As User = CType(Me.ListView1.SelectedItems(0).Tag, User)
        Dim usrPer As User.UserPermission = usr.Permission
        MessageBox.Show(usr.ToString + " : " + usrPer.ToString)
    End Sub
 
    Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim lvi As ListViewItem
        Dim user As User
 
        lvi = New ListViewItem
        user = New User("hans", "meier", New User.UserPermission(True))
        lvi.Text = user.FirstName
        lvi.Tag = user
        Me.ListView1.Items.Add(lvi)
 
        lvi = New ListViewItem
        user = New User("peter", "lustig", New User.UserPermission(False))
        lvi.Text = user.FirstName
        lvi.Tag = user
        Me.ListView1.Items.Add(lvi)
    End Sub
End Class
 
Public Class User
    Public FirstName, LastName As String
    Public Permission As UserPermission
 
    Public Sub New(ByVal FirstName As String, _
                   ByVal LastName As String, _
                   ByVal Permission As UserPermission)
        Me.FirstName = FirstName
        Me.LastName = LastName
        Me.Permission = Permission
    End Sub
 
    Public Overrides Function ToString() As String
        Return Me.LastName + ", " + Me.FirstName
    End Function
 
    Public Class UserPermission
        Public AllowWrite As Boolean
 
        Public Sub New(ByVal AllowWrite As Boolean)
            Me.AllowWrite = AllowWrite
        End Sub
 
        Public Overrides Function ToString() As String
            Return "AllowWrite: " + Me.AllowWrite.ToString
        End Function
    End Class
End Class