[Wolsh]

Ладно, не ворчите) Вот исходник. Просто была надежда, что справитесь сами. А свой опыт в сотни раз важнее исходников.
Впрочем, я не стал комментировать код. Может, возникнет желание поразбираться, полазить по хелпу. Ну а нет - чтож, спрашивайте.