Dim i As Integer '声明i为整形全局变量
        '上一张 按钮的代码：
        Const n = 20
        If i > 0 Then
            i = i - 1
            picture1.Picture = Loadpicture(APP.Path & "\" & i & ".Jpg")
        Else
            MsgBox("已经是第1张图片了")
        End If
        '下一张 按钮的代码：
        '假设有n张图片
        If i < n Then
            i = i + 1
            picture1.Picture = Loadpicture(APP.Path & "\" & i & ".Jpg")
        Else
            MsgBox("已经是第" & n & "张图片了")
        End If
        '把这n张图片重名名为0.jpg 1.jpg 2.jpg...n-1.jpg，然后复制到程序所在目录。
    End Sub
提示我错误1.未声明变量Loadpicture和APP
          2. picture1.Picture不是系统成员
      多谢

楼上的是VB6代码，并非.NET代码

VB6与有很大的区别

并不是所有的VB6代码都能在下运行
 picture1.Picture = Loadpicture(APP.Path & "\" & i & ".Jpg")  
    'Loadpicture方法已被 对象.Load所代替
    'app已被对象Application所代替


上述出错语句在中应当这样写：
  'PictureBox1控件中中，已经没有Picture属性，而变为ImageLocation属性:PictureBox1.ImageLocation

PictureBox1.Load(Application.StartupPath & "\" & i & ".Jpg")