For Each p As Process In ps
If String.Compare(p.ProcessName, "pol", True) = 0 Then
pol = p
For i As Integer = 0 To p.Modules.Count - 1
If p.Modules.Item(i).ModuleName = "FFXiMain.dll" Then
BaseAddr = p.Modules.Item(i).BaseAddress.ToInt32
Exit For
End If
Next
Exit For
End If
Next
