主题：关于标签的循环移动

TimerTick事件

Dim lbl As WinForm.Label = e.Form.Controls("Label1")
If lbl.left+lbl.width > 0 Then
    lbl.left -= 10
Else
    lbl.left = e.form.Controls("panel1").width
End If

http://www.foxtable.com/webhelp/scr/1301.htm

如果要得到属性方法，这样写

Dim o = Forms("窗口1")

For Each c As object In o.Gettype.getproperties
    output.show(c.name)
Next
For Each c As object In o.Gettype.getMethods
    output.show(c.name)
Next

或者去查msdn https://msdn.microsoft.com/zh-cn/library/system.windows.forms.form_members(v=vs.80).aspx