For g = Picture1.LBound + 1 To Picture1.UBound
    f = 0
        For i = Picture1.LBound + 1 To Picture1.UBound
            'If i = Index Then Exit For
            If Picture1(i).Top <= Picture1(g).Top Then
                If Picture1(i).Top + Picture1(i).Height >= Picture1(g).Top Then
                    f = f + 1
                End If
            End If
        Next
    z = 0
    If f = 0 Then Exit Sub
    'f = f + 1
        For i = Picture1.LBound + 1 To Picture1.UBound
            'If i = Index Then Exit For
            Label9.Caption = f
            If Picture1(i).Top <= Picture1(g).Top Then
                If Picture1(i).Top + Picture1(i).Height >= Picture1(g).Top Then
                    If f = 1 Then Picture1(0).Left = MSFlexGrid1.Left + 10
                    Picture1(i).Width = Picture1(0).Width / f
                    Picture1(i).Left = Picture1(0).Left + z * Picture1(i).Width
                    Label5(i).Left = 50
                    Label5(i).Width = Picture1(i).Width - 200
                    Label5(i).Height = Picture1(i).Height - Label5(i).Top - 100
                    z = z + 1
                End If
            End If
        Next
    Next