Option Explicit
Private punkt() as whatever 'dynamische variable anlegen
 
'---------------------------------------
 
Private Sub Form_Load()
ReDim Preserve array(1 To 10, 0 To 1)
counter = 0
End Sub
 
'---------------------------------------
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y _
  As Single)
 
counter = counter +1
 
If counter = 10 Then
ReDim Preserve array(1 To counter +1 , 0 To 1)
End If
 
array(counter,0) = 10
array(counter,1) = 15
 
End Sub

LG,Robert