<VB6>

Kan man skapa och sätta ut en shape. Vill kunna skapa fyrkantiga shapes som heter b(0), b(1) osv ... vill kunna skapa X antal sådana ...

Jag är nybörjare med VB6. Har pysslat bara jättelite med VB.NET.

</VB6>

* Lägg till en Shape i ditt formulär.
* Byt namn på det till B
* Sätt Index till 0
* Kopiera och klistra in så många du vill ha eller skapa dem dynamiskt när du kör dit program med. T.Ex.:
<code>
Private Sub Form_Load()
Dim Index As Long
Dim Shape As Shape
Dim NextTop As Single
NextTop = B(0).Top + B(0).Height
For Index = 1 To 9
Set Shape = B(Index)
Load Shape
Shape.Move Shape.Left, NextTop
Shape.Visible = True
NextTop = Shape.Top + Shape.Height
Next
End Sub
</code>

tack så mycket!