vb picture 动态添加为何只加入了一全图片

我要窗体上加载N*2的一组图片，但写了如下代码，测试结果显示只加载了一全图片，敬请高手指导，并最好改正。

 For g = 0 To k - 1
         Load Picture5(k)
         Picture5(k).Visible = True
     Next g
     For n = 0 To (k - 1) / 2
         For m = 0 To 1
            j = n * 2 + m
            Picture5(n * 2 + m).Left = Picture3.ScaleLeft + Picture3.ScaleWidth / 2 * m
            Picture5(n * 5 + m).Top = Picture2.ScaleTop + Picture3.ScaleHeight / ((k - 1) / 2) * n
            Picture5(n * 2 + m).Picture = Picture6            '源图片加入到数组中
            Picture5(n * 2 + m).Visible = True
            Picture5(n * 2 + m).Visible = True
             Picture5(n * 2 + m).Print
            Picture5(n * 2 + m).Print "      "; n * 2 + m + 1         '输出控件号
            
        Next m
    Next n
End Sub