在Visual Basic中，可以使用多种方法来实现物体的运动。以下是几种常见的方法：
方法一：使用Timer控件和Label控件
添加控件
在窗体上添加一个`Timer`控件和一个`Label`控件。
设置`Timer`控件的`Interval`属性为1或自定义，用于控制运动速度。
设置`Label`控件的`BorderStyle`为`FixedSingle`，以便在窗体上创建一个框来容纳图像。
编写代码
在`Form_Load`事件中，初始化`Label`的位置。
在`Timer_Timer`事件中，更新`Label`的位置，并添加判断代码以确保`Label`在窗体内移动。
```vb
Private Sub Form_Load（）
Label1.Left = 0
End Sub
Private Sub Timer1_Timer（）
Label1.Left = Label1.Left + 50
If Label1.Left + Label1.Width > Form1.Width Then
Label1.Left = 0
ElseIf Label1.Left < 0 Then
Label1.Left = Form1.Width - Label1.Width
End If
End Sub
```
方法二：使用Shape控件
添加控件
在窗体上添加一个`Shape`控件，并设置其形状为圆形。
添加一个`Timer`控件，用于控制圆形的运动。
编写代码
在`Form_Load`事件中，初始化圆形的位置。
在`Timer_Timer`事件中，更新圆形的位置，并添加判断代码以确保圆形在窗体内移动。
```vb
Private Sub Form_Load（）
Shape1.Left = 0
End Sub
Private Sub Timer1_Timer（）
If g Then
Shape1.Left = Shape1.Left - 300
Else
Shape1.Left = Shape1.Left + 300
End If
If Shape1.Left < 0 Then
g = Not g
ElseIf Shape1.Left > Me.ScaleWidth - Shape1.Width Then
g = Not g
End If
Shape1.Move Shape1.Left
End Sub
```
方法三：使用PictureBox控件
添加控件
在窗体上添加一个`PictureBox`控件，并设置其大小和位置。
添加一个`Timer`控件，用于控制图像的运动速度。
编写代码
在`Form_Load`事件中，初始化图像的位置。
在`Timer_Tick`事件中，计算图像的下一个位置，并更新图像的位置。
```vb
Private Sub Form1_Load（sender As Object, e As EventArgs） Handles MyBase.Load
PictureBox1.Location = New Point（50, 50）
Timer1.Start（）
End Sub
Private Sub Timer1_Tick（sender As Object, e As EventArgs） Handles Timer1.Tick
Dim newX As Integer = PictureBox1.Location.X + rnd.Next（-5, 6）
Dim newY As Integer = PictureBox1.Location.Y + rnd.Next（-5, 6）
PictureBox1.Location = New Point（newX, newY）
End Sub
```
方法四：使用键盘控制
添加控件
在窗体上添加一个`Shape`控件，并设置其形状为圆形。
编写代码
在`Form_Load`事件中，初始化圆形的位置。
在`KeyPress`事件中，根据按下的键更新圆形的位置。
```vb
Private Sub Form_Load（）
Shape1.Left = 0
End Sub
Private Sub Form1_KeyPress（sender As Object, e As KeyEventArgs） Handles MyBase.KeyPress
Select Case e.KeyCode
Case Keys.Left
Shape1.Left = Shape1.Left - 5
Case Keys.Right
Shape1.Left = Shape1.Left + 5
Case Keys.Up
Shape1.Top = Shape1.Top - 5
Case Keys.Down
Shape1.Top = Shape1.Top + 5
End Select
End Sub
```
这些方法可以帮助你在Visual Basic中实现不同类型的物体运动。根据具体需求选择合适的方法，并进行相应的调整即可。