Form
    ' Memory reader
    Private pcsProcess As Process()
    Private pReader As ProcessMemoryReader
    Private bytesToRead As UInteger
    Private bytes As Byte()
    Private num2 As Integer
 
    Private Sub pCarsDataGetterLoop()
                pReader = New ProcessMemoryReader()
                pcsProcess = Process.GetProcessesByName("pCars64")
                If pcsProcess.Length > 0 Then
 
                    pReader.ReadProcess = pcsProcess(0)
                    Label5.Text = pcsProcess(0).ProcessName
                    pReader.OpenProcess()
                    ReadValues()
                Else
                    pReader.CloseHandle()
                End If
    End Sub
 
    Private Sub ReadValues()
        Dim OffSet4 As Int32 = &H4 '&H83A0
 
        If pcarsData.mNumParticipants > 0 Then
            'For i = 0 To pcarsData.mNumParticipants - 1 'Antal biler / drivers
 
 
            ' ***** Sector Times *****
            Dim adrSectorTime As Int64 = 141887378 ' &H8750792
            Dim SectorTime As Single
 
            bytesToRead = 4
            bytes = pReader.ReadProcessMemory(System.IntPtr.op_Explicit( _
              adrSectorTime), bytesToRead, num2)
 
            'bytes = pReader.ReadProcessMemory(System.IntPtr.op_Explicit( 
            ' adrSectorTime + i * OffSet4), bytesToRead, num2)
 
            SectorTime = CSng(FilterData(bytes(0).ToString, DataTyp.Sin))
                       Label3.Text = SectorTime.ToString
           'Next i
        End If
    End Sub