Salut!
 
	Deci am functia asta:
 
Private Function ReadMemoryInt(ByVal baseAddress As Integer, ByVal size As Integer) As Integer
        Try
            Dim vBuffer As Integer = Nothing
            ReadProcessMemory(HandleReturn(True), CType(baseAddress, IntPtr), vBuffer, CType(size, IntPtr), Nothing)
            Return vBuffer 
        Catch ex As Exception
            Return 0
        End Try
    End Function
	si butonul asta:
 
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        Dim full As Integer = 100
        Dim CPed As Integer = ReadMemoryInt(&HB6F5F0, 4)
        WriteFloat("gta_sa", (CPed + &H540), full)
     
    End Sub
	Problema e ca mereu din CPed + &H540 imi rezulta 01344, 0 fiind CPed si 1344 fiind &H540. Si nu stiu cu ce am gresit la CPed..