我用form1去调用form2中的picture中的picture1(i).tag,在text2中判断是否有picture1(i).tag 有就做相关的操作
主程序调用这个过程
Private Sub setpicprint()
Dim i As Integer, tagg As Integer, textstart As Long
For i = 1 To 200
For tagg = 0 To 11
lpicpos = InStr(textstart, Text2.Text, Form2.Picture1(tagg).Tag, vbTextCompare)
'程序一运行到这里就出错,invalid procedure call or argument
If lpicpos > 0 Then
进行相关的操作
我不晓得错在哪儿 请指点迷津 谢谢