Option Strict On
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.ListView1.Items.Add("Test Eintrag")
        Dim test() As String = {"Das", "ist", "ein", "Test"}
        Me.ListView1.Items(0).Tag = test
        Me.Text = ""
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim test() As String = CType(Me.ListView1.Items(0).Tag, String())
        For i As Integer = 0 To 3
            Me.Text &= test(i) & " "
        Next
    End Sub
End Class