Vb control, can achieve xp effect (including source code)