Public Structure MMFContents
        Public mVersion As UInteger 
        Public mBuildVersion As UInteger 
 
        ' Session type
        Public mGameState As UInteger 
        Public mSessionState As UInteger 
        Public mRaceState As UInteger 
 
        ' Participant Info
        Public mViewedParticipantIndex As Integer 
        Public mNumParticipants As Integer         
        Public mParticipantInfo As ParticipantInfo
            End Structure
 
 
Private Function ReadMemoryMappedFile(ByVal Name As String) As Byte()
 
        Try
            Using MemoryFile As IO.MemoryMappedFiles.MemoryMappedFile =
                IO.MemoryMappedFiles.MemoryMappedFile.OpenExisting(Name, _
                  IO.MemoryMappedFiles.MemoryMappedFileRights.ReadWrite)
 
                Dim a As System.IO.MemoryMappedFiles.MemoryMappedViewAccessor
                a = MemoryFile.CreateViewAccessor()
 
                If a.CanRead = True Then
                    Dim c As New MMFContents
                    a.Read(0, c) 'Læser alle data fra position 0 ind i c
                    TextBox1.Text = "Version (h fil) : " & c.mVersion
                    TextBox2.Text = "Build : " & c.mBuildVersion
                    TextBox3.Text = "Game state : " & c.mGameState
                    TextBox4.Text = "Session state : " & c.mSessionState
                    TextBox5.Text = "Race state : " & c.mRaceState
                    TextBox6.Text = "Detager index : " & _
                      c.mViewedParticipantIndex
                    TextBox7.Text = "Antal detagere : " & c.mNumParticipants
                    TextBox20.Text = c.mParticipantData(0).mName
                End If
            End Using ' MemoryFile
 
        Catch exNoFile As IO.FileNotFoundException
            Throw
            Return Nothing
 
        Catch ex As Exception
            Throw
 
        End Try
 
    End Function
 
Public Class ParticipantInfo
 
    Public mIsActive As Boolean
    Public mName As New String(New Char(eAPIStructLengths.STRING_LENGTH_MAX - _
      1) {}) 
    Public mWorldPosition(eVector.VEC_MAX - 1) As Single 
    Public mCurrentLapDistance As Single 
    Public mRacePosition As UInteger 
    Public mLapsCompleted As UInteger 
    Public mCurrentLap As UInteger 
    Public mCurrentSector As UInteger 
End Class