请高手帮我看看在WIN98下没问题，在XP 下出现问题

Question

Private Sub Image1_DblClick(Index As Integer)
If Not Image1(shapewhere).Picture > 0 Then Exit Sub
Dim blpittemp As Boolean
blpittemp = False
For i = 0 To 3
  If Not Image1x(i).Picture > 0 Then
FileCopy App.Path + "\pic\" + Textfrm1.Text + Trim(str(shapewhere + nownum)) + ".jpg",
App.Path + "\pic\" + Textfrm1.Text + Trim(str(i + 1)) + "p.jpg"
    Image1x(i).Picture = Image1(shapewhere).Picture
    blpittemp = True
    i = 3
  End If
Next
If Not blpittemp Then
  MsgBox "最多只能打印四幅图像！", vbOKOnly, "信息"
End If
'''''''''''
End Sub

Answer 1

这样改试试Private Sub Image1_DblClick(Index As Integer) 
If Not Image1(shapewhere).Picture > 0 Then Exit Sub 
Dim blpittemp As Boolean 
blpittemp = False 
For i = 0 To 3 
If Not Image1x(i).Picture > 0 Then 
FileCopy App.Path + "\pic\" + Textfrm1.Text + Trim(str(shapewhere + nownum)) + ".jpg", App.Path + "\pic\" + Textfrm1.Text + Trim(str(i + 1)) + "p.jpg" 
Set Image1x(i).Picture = Image1(shapewhere).Picture 
blpittemp = True 
'i = 3 
Exit For
End If 
Next 
If Not blpittemp Then 
MsgBox "最多只能打印四幅图像！", vbOKOnly, "信息" 
End If 
''''''''''' 
End Sub