Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim proc As Process() = Process.GetProcessesByName("Test")
        Dim testproc As Process = proc(0)
        Dim data As Byte() = New Byte(255) {}
        Dim empy_data As Byte() = New Byte(255) {}
        Dim current As Integer
        Dim steps As Integer = 4096
        Dim Base As Integer = 3064
        Dim Ziel As Integer = 500
 
        While 1
            me.update()
            data = empy_data
            mem.Peek(testproc, Base, data)
            current = System.BitConverter.ToSingle(data, 0)
            current = Int(current)
            label1.text = "Scanne: " & Base
            If (current = Ziel) Then
                MsgBox("Adresse gefunden: " & Base.ToString)
                Exit While
            Else
                'weiter
                Base = Base + steps
            End If
        End While
    End Sub