這里有個D代碼，我要轉換成VB的，只有關鍵的API調用部分就行了，我不懂D。