我写的个小程序，别人拿去运行，就提示路径未找到，这个文件和程序之间是不是也存在相对路径和绝对路径的问题呢，该怎么去处理这个问题呢，请看代码


Private Sub Form_Load()
lab1.FontSize = 30
lst1.Clear
lst1.FontSize = 20
lst1.AddItem "艾丽莎乐"
lst1.AddItem "苍井空"
lst1.AddItem "川岛和津实"
lst1.AddItem "饭岛"
lst1.AddItem "福冈亚也"
lst1.AddItem "酒井法子"
lst1.AddItem "栗田梨子"
lst1.AddItem "山口美树"
lst1.AddItem "夏川纯"
lst1.AddItem "小泽玛利亚"
lst1.AddItem "小泽圆台"
lst1.AddItem "原纱央莉"
pic1.Picture = LoadPicture("E:\image\ailishale.jpg")
lst1.Selected(0) = True


End Sub



Private Sub lst1_Click()
If lst1.Selected(0) = True Then
pic1.Picture = LoadPicture("E:\image\ailishale.jpg")
ElseIf lst1.Selected(1) = True Then
pic1.Picture = LoadPicture("E:\image\cangjingkong.jpg")
ElseIf lst1.Selected(2) = True Then
pic1.Picture = LoadPicture("E:\image\chuangdaohejingshi.jpg")
ElseIf lst1.Selected(3) = True Then
pic1.Picture = LoadPicture("E:\image\fandao.jpg")
ElseIf lst1.Selected(4) = True Then
pic1.Picture = LoadPicture("E:\image\fugangyaye.jpg")
ElseIf lst1.Selected(5) = True Then
pic1.Picture = LoadPicture("E:\image\jiujingfazi.jpg")
ElseIf lst1.Selected(6) = True Then
pic1.Picture = LoadPicture("E:\image\litianlizi.jpg")
ElseIf lst1.Selected(7) = True Then
pic1.Picture = LoadPicture("E:\image\shankaomeishu.jpg")
ElseIf lst1.Selected(8) = True Then
pic1.Picture = LoadPicture("E:\image\xiachuangchun.jpg")
ElseIf lst1.Selected(9) = True Then
pic1.Picture = LoadPicture("E:\image\xiaozemaliya.jpg")
ElseIf lst1.Selected(10) = True Then
pic1.Picture = LoadPicture("E:\image\xiaozeyuantai.jpg")
ElseIf lst1.Selected(11) = True Then
pic1.Picture = LoadPicture("E:\image\yuanshayangli.jpg")
End If

End Sub

哈哈哈，好给力的名字。
LoadPicture(app.path & "\image\yuanshayangli.jpg")
看不懂，我也不会回答了，自己调试去把。

看对方的电脑里面是否有你指定的这些图片？

应该把你编的程序和那些图片都放一文件夹里，再发给别人