【实例说明】
    在处理图像时，经常会遇到使图像水平或垂直移动的情况。本例将讲解如何使图片从不同角度移动。运行程序，单击“水平移动”按钮，图片便沿着水平方向移动；单击“垂直”按钮，图片便沿着垂直方向移动；单击“没对角线移动”按钮；图片便沿着对角线方向移动；单击“复位”按钮，图片回到原来的位置。

【编程思路】
    用Move方法，使图片产生移动的效果。下面是Move的方法及参数：
    语法：object.Move left,top,width,height
    参数：
    left必需的，单精度值，表示object左边的水平坐标（x-轴）。
    top可选的，单精度值，表示object顶边的垂直坐标（Y-轴）。
    width可选的，单精度值，表示object的宽度。
    height可选的，单精度值，表示object的高度。

【设计步骤】
    1.新建一个标准工程，创建一个新窗体，默认名为Form1。
    2.在程序同一级目录下放置一个love.gif图片文件。
    3.在窗体上放置五个CommandButton控件。

    4.源程序  [素材源程序下载]


'水平方向在窗体中移动
Private Sub Command1_Click()
        Picture1.Move Picture1.Left + 200
End Sub

'垂直方向在窗体中移动
Private Sub Command2_Click()
        Picture1.Move Picture1.Left, Picture1.Top + 300
End Sub

'对角线方向在窗体中移动
Private Sub Command3_Click()
        Picture1.Move Picture1.Left + 400, Picture1.Top + 300
End Sub

'复位
Private Sub Command4_Click()
        Picture1.Left = 800
        Picture1.Top = 600
End Sub

'退出
Private Sub Command5_Click()
        Unload Me
End Sub

'初始化
Private Sub Form_Load()
        Picture1.Picture = LoadPicture(App.Path & "\love.gif")
        Picture1.Left = 800
        Picture1.Top = 600
End Sub