前面程式的Windicate的VB Source Code