在VB（Visual Basic）中，可以使用定时器（Timer）和变量来控制标签（Label）的移动。以下是几种常见的方法：
方法一：使用定时器和方向变量
设置定时器：
在窗体的`Load`事件中设置定时器的间隔，并启动定时器。
控制移动方向：
使用一个静态变量来表示移动方向（例如，1表示向右移动，-1表示向左移动）。
更新标签位置：
在定时器的`Timer`事件中，根据移动方向更新标签的`Left`属性。
```vb
Private Sub Form_Load（）
Timer1.Interval = 50 ' 设置定时器的时间间隔为50毫秒
Timer1.Enabled = True ' 启动定时器
End Sub
Private Sub Timer1_Timer（）
Static direction As Integer ' 用于表示移动方向，1表示向右移动，-1表示向左移动
Static xPos As Integer ' 标签的X位置
xPos = Label1.Left ' 记录当前标签的X位置
If direction = 1 Then
xPos = xPos + 1 ' 向右移动
If xPos + Label1.Width > Me.Width Then
direction = -1 ' 到达右边界，改变方向为向左
End If
ElseIf direction = -1 Then
xPos = xPos - 1 ' 向左移动
If xPos < 0 Then
direction = 1 ' 到达左边界，改变方向为向右
End If
End If
Label1.Left = xPos ' 更新标签的位置
End Sub
```
方法二：使用循环和条件判断
设置移动步长：
在窗体的`Load`事件中定义一个变量来表示移动步长。
判断边界：
在定时器的`Timer`事件中，判断标签是否到达左右边界，并根据边界情况调整移动步长和方向。
```vb
Private Sub Form_Load（）
mMove = 100 ' 设置移动步长
End Sub
Private Sub Timer1_Timer（）
If Label1.Left + mMove < 0 Then
mMove = -mMove ' 到达左边界，改变移动方向
ElseIf Label1.Left + mMove > Me.Width - Label1.Width Then
mMove = -mMove ' 到达右边界，改变移动方向
End If
Label1.Left = Label1.Left + mMove ' 更新标签的位置
End Sub
```
方法三：使用随机移动
设置定时器：
在窗体的`Load`事件中设置定时器的间隔，并启动定时器。
随机移动：
在定时器的`Timer`事件中，使用随机数来改变标签的`Left`属性。
```vb
Private Sub Form_Load（）
Timer1.Interval = 100 ' 设置定时器的时间间隔为100毫秒
Timer1.Enabled = True ' 启动定时器
End Sub
Private Sub Timer1_Timer（）
Dim randomNum As Integer = New Random（）.Next（1, 101） ' 生成1到100之间的随机数
Label1.Left = Label1.Left + randomNum ' 更新标签的位置
End Sub
```
方法四：使用数学函数
设置定时器：
在窗体的`Load`事件中设置定时器的间隔，并启动定时器。
使用三角函数：
在定时器的`Timer`事件中，使用正弦或余弦函数来改变标签的`Left`属性，从而实现平滑的移动效果。
```vb
Private Sub Form_Load（）
Timer1.Interval = 100 ' 设置定时器的时间间隔为100毫秒
Timer1.Enabled = True ' 启动定时器
End Sub
Private Sub Timer1_Tick（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles Timer1.Tick
Dim i As Integer = i + 90 ' 角度增加
Label1.Left = 100 * Math.Sin（i * Math.PI / 180） ' 使用正弦函数更新标签的位置
End Sub
```
以上方法可以根据具体需求选择使用。定时器的间隔可以根据需要调整，以实现不同的移动速度和效果。