主题：突发奇想,做了一个标签会动例子!

呵呵，顶你一下，不过代码的效率实不太好，我给你一个合理的：

Dim pm As WinForm.Label = e.Form.Controls("Label1")
Dim s As String  = "请输入关键字→"
Dim l As Integer = pm.Text.length
pm.text = s.SubString(0,iif(s.length = l,1,l+1))