弄三个图片控件分别赋值
Dim ls As List(Of String) = Tables("表A").Current.Lines("第一列")
e.Form.Controls("picturebox1").Image = GetImage(ProjectPath & "Attachments/" & ls(0))
e.Form.Controls("picturebox2").Image = GetImage(ProjectPath & "Attachments/" & ls(1))
e.Form.Controls("picturebox3").Image = GetImage(ProjectPath & "Attachments/" & ls(2))