VB6版的不规则图形填充方法,利用API实现