这里有个D代码，我要转换成VB的，只有关键的API调用部分就行了，我不懂D。