Run-Time error '340' vb 6.0, Control Array Element '3' doesn't exist
<pre><code>Dim nPicture As Integer
For n = 1 To 4
    If p_strInstrument(n, 0) = "A" Then
        nPicture = (n * 4) + 1
    Else
        nPicture = (n * 4) + 4
    End If
    'How Can i edit the line below?
    frm_Experiment.picInstrument(n).Picture = frm_Experiment.ImageListInstrument.ListImages(nPicture).Picture
Next n

p_blnInstReady = True
'Unload Me
frm_SearchInstrument.WindowState = vbMinimized
frm_SearchInstrument.Visible = False
</code></pre>