make object go to another without "teleporting"

hey guys, I was wondering how to make a shape follow another with VBA.