Sure. Just search the web.

Here's one: http://www.freevbcode.com/ShowCode.Asp?ID=2528