VB/VB.Net如何实现用Label在不同位置移动的效果？

还记得上微软网站更新系统补丁时，每当勾选一个升级项时，在当前勾选的位置会出现一个带文字的黑框平滑的飞向已选数量的位置上并加1，当取消勾选时以相反的方向从已选数量的位置上飞回并减1，这个效果动感有个性，现在我想在VB也想实现这种效果，请问用VB如何实现？用什么算法？

请各位大虾帮帮忙，VB6或VB.Net都可以！

---

直接用GDI函数对屏幕DC操作。

---

引用

直接用GDI函数对屏幕DC操作。

如何实现？

---

用shape控件模拟。但要注意：check控件只显示一个钩选框，其显示内容用另外的label实现。

---

引用

用shape控件模拟。但要注意：check控件只显示一个钩选框，其显示内容用另外的label实现。

不知怎样实现，能否给出示例代码吗？或思路、算法也可以！

---

GDI不懂，简单的用Move命令来实现，大致如下：
VB code:
Option Explicit
Dim lngL As Long
Dim lngT As Long
Dim lngW As Long
Dim lngH As Long
Private Sub Command1_Click()
Do
lngT = lngT + 2
lblMove.Move lngL, lngT
DoEvents
Loop Until lblMove.Top >= 3000
End Sub

Private Sub Form_Load()
With lblMove
.Left = 0
.Top = 0
lngL = .Left
lngT = .Top
lngW = .Width
lngH = .Height
End With
End Sub


要是移动效果平滑些，可在循环中加上Sleep函数，效果会更好

---

楼上的