Private Sub Command5_Click()
Timer1.Enabled = True  
 
Picture1.Enabled = False


解释:上面这段是单击按钮后,时钟控件启动

End Sub
Private Sub Timer1_Timer()

    Static n%
         
    n = n + 1
   
    Picture1.Picture = LoadPicture("D:\" & n & ".jpg")
      
    If n > 4 Then n = 1
    End If
      

End Sub

解释: 把D盘的图片依次向图片框里导入  图片的名称分别是 1, 2 ,3 ,4  到4 后,又从头开始

现在我的疑问是,我生存exe 文件后,拷贝到别人电脑, 我必须把四个图片也拷贝到他电脑的D盘里,才能正常显示图片

有没有办法,不必把图片拷到他的D盘呢?

感谢各位热心指导，试着用相对路径，打了一个包

xzlxzlxzl的方法，容待有空细体验