Short answer, add the parts needed below the .Run but a With as in the example.
Add the 2nd With as With .Run, do as shown for ones you want to set, and end with End With as shown in the example. It is a With, within, a With.
I suspect that these are tied to Windows so you may need to do some math. I am not sure if it is going by pixels or points. See if Application.Left and .Top help any. I noticed they were negative on mine so there may be some translation math needed.
