Dim mana As Integer
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        mana = WriteDMAInteger("Juego", &HAddress, {&H1, &H2, &H3, &H4, &H5}, Value, 5)
        Label1.Text = mana

Public Class Form1
    Dim BaseAddress As Integer
    Dim MyProcess As Process() = Process.GetProcessesByName("JUEGO")
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim MyProcess As Process() = Process.GetProcessesByName("JUEGO")
        Dim mainModule As ProcessModule
        mainModule = MyProcess(0).MainModule
        BaseAddress = CInt(mainModule.BaseAddress)
        BaseAddress = CInt(mainModule.BaseAddress)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Label1.Text = ReadInt((BaseAddress + &H3B28FC))
    End Sub
End Class