Hello,

I want to write a little function for copy controls on a form.
I wrote this code but it doesn't work :
___________________________________
Private Sub Form_Load()

Object_Kopiëren shpBorder(0), 2, 100, 100

End Sub
-----------------------------------------------------------
Private Sub Object_Kopiëren(ByRef CopyControl As VB.control, ByVal Aantal As Integer, ByVal xMove As Integer, ByVal yMove As Integer)

Dim i As Integer

For i = 1 To Aantal
Load CopyControl(i)
CopyControl(i).Visible = True
'code to move the object on the right place...
Next i

End Sub
_____________________________________

What did I wrong ?

Kris