Dim o As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In c.Modules
If moz.FileName.IndexOf("obj") <> -1 Then
obj.Text = moz.BaseAddress.ToString
End If
Next