'-------不知你是否是要实现左右来回移动-----------
为贵德等地区用户提供了全套网页设计制作服务，及贵德网站建设行业解决方案。主营业务为成都网站制作、网站建设、贵德网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！
'添加控件label1
'添加控件Timer1
'设置Timer1.enabled=True
'添加Timer1_Tick事件
'代码如下：
Dim dir As Boolean = False
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim x As Integer = Me.Label1.Location.X
Dim y As Integer = Me.Label1.Location.Y
Dim pointxy As New Point(x, y)
If x = 0 Then
dir = False
ElseIf x = Me.Width - Me.Label1.Width Then
dir = True
End If
If dir Then
pointxy = New Point(x - 1, y)
Else
pointxy = New Point(x + 1, y)
End If
Me.Label1.Location = pointxy
End Sub
Visual Basic .NET支持动态属性，其动态属性储存在一个应用程序配置文件中，该文件在应用程序执行时将会被读到。使用动态属性可以在不重新编译应用程序的情况下改变一些属性值。你可以使用它们保存数据库连接字符串、应用程序日志信息或者服务器连接信息。
要看动态属性的例子，首先在Visual Basic中创建一个Windows应用程序。添加一个TextBox到默认窗体中；确认TextBox是被选中的，然后在属性窗口中定位Dynamic属性。
点击Advanced标签旁边的省略号按钮，打开一个对话框，该对话框中列出了TextBox所有的属性，选择Text属性，键映射框将会被激活。键映射决定了键储存在配置文件中的值。点击确定关闭对话框。
最简单的，就是在上面放一个label，用Timer定时器控件控件这个label的移动
Option Explicit
Private WithEvents NewTextBox As TextBox
'通过使用WithEvents关键字声明一个对象变量为新的命令按钮
Private Sub Command1_Click()
If NewTextBox Is Nothing Then
Set NewTextBox = Controls.Add("VB.TextBox", "cmdNew", Form1)
NewTextBox.Move 200, 200
通过使用VB的Timer控件，程序员可以轻松的在窗体上实现闪烁文字的效果。本文将演示如何为Label控件加上闪烁效果，这种方法同样适用于其它多种控件。以下代码可以完成检验ForeColor属性的任务： Private Sub Timer1_Timer() If Label1.ForeColor = Label1.BackColor Then Label1.ForeColor = vbBlack Else Label1.ForeColor = Label1.BackColor End If End Sub 另外，你也可以让文字采用不同的颜色，比如交替采用红色和绿色： Private Sub Timer1_Timer() If Label1.ForeColor = vbRed Then Label1.ForeColor = vbGreen Else Label1.ForeColor = vbRed End If End Sub 当你停止文字闪烁时，还要确定文字的状态是可见的并且采用了合适的色彩。
