用VB如何使label自动左右移动？

1、在桌面上找到VB软件的图标，双击打开。

2、跳出来一个“新建工程”窗口，选择“标准EXE”，点击打开。

3、在左边的工具栏中选中label，

在form1中创建一个label。

4、在左边的工具栏中选中Timer，并在窗体中画出一个控件。

5、选中timer图标，在右侧的属性工具栏中把Interval的值改成100.

6、双击label的图标，并在跳出来的编码窗口中输入如下代码。

Private Sub Form_Load()Me.Tag = 1End Sub

Private Sub Label1_Click()

End Sub

Private Sub Timer1_Timer()If Label1.Left > Me.Width - Label1.Width Then    Me.Tag = 2ElseIf Label1.Left < 0 Then    Me.Tag = 1End IfIf Me.Tag = 1 Then    Label1.Left = Label1.Left + 100ElseIf Me.Tag = 2 Then    Label1.Left = Label1.Left - 100End IfEnd Sub

7、在上面的工具栏中点击“运行”，在下拉框中选择“启动”，就可以看见效果了！