desenhar shape em tempo de execucao

Só um exemplo rápido, veja se é isto que você necessita.

Crie um projeto com 1 form, um commandbutton e um shape altere o index dele para 0 (zero) para criarmos um array.

Note que o primeiro shape será shape(0).

Agora cole o código e teste.

Dim iContShape As Integer
Private Sub Command1_Click()
    iContShape = iContShape + 1
    Load Shape(iContShape)

    Shape(iContShape).Left = Shape(iContShape - 1).Left + Shape(iContShape - 1).Width
    Shape(iContShape).Shape = iContShape
    Shape(iContShape).FillStyle = iContShape
    Shape(iContShape).Visible = True

End Sub

Private Sub Form_Load()
    Shape(0).Top = 0
    Shape(0).Left = 0
    Shape(0).Visible = False
    Me.WindowState = vbMaximized
End Sub