Visual Basic

    Public Class PC

        Private intID As Integer
        Private strName As String

        Public Sub New()

        End Sub

        Public Sub New(ByVal PCID As Integer)

            ID = PCID
            Name = "PC " & PCID

        End Sub

        Public Property Name() As String
            Get
                Return strName
            End Get
            Set(ByVal value As String)
                strName = value
            End Set
        End Property

        Public Property ID() As Integer
            Get
                Return intID
            End Get
            Set(ByVal value As Integer)
                intID = value
            End Set
        End Property

    End Class

    Public Class Form1

    Private lstPC As New List(Of PC)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        
        'Create some simple PC's for example purposes
        For i As Integer = 1 To 5
            Dim newPC As New PC
            newPC.ID = i
            newPC.Name = "PC " & i
            lstPC.Add(newPC)
        Next
        DataGridView1.DataSource = lstPC

    End Sub

    Private Sub DataGridView1_CellMouseClick(ByVal sender As Object, ByVal e As  System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseClick

        Dim newForm2 As New Form2(lstPC(e.RowIndex))
        newForm2.Show()

    End Sub

End Class

Public Class Form2

    Private pcCurrent As Form1.PC

    Public Sub New(ByVal newPC As Form1.PC)

        InitializeComponent()
        pcCurrent = newPC

    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ListView1.Items.Add(pcCurrent.Name)

    End Sub

End Class

Michael Schäuble wrote:

I was hoping there'd be some general method in .net how I could explore what such a file exposes.

offroaderdan wrote:

Adodc2.recordset.move lbk

Adodc2.recordset.bookmark = lbk

dim lbk as long
lbk = Adodc2.Recordset.bookmark     ' same as below
Adodc2.refresh
Adodc2.recordset.bookmark = lbk    ' this is near enough repeated
adodc2.recordset.delete

buff.Append(String.Format("{0:X1}", hashByte))

BitConverter.ToString(hash).Replace("-", "")

X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*