Private Sub Form_Load()
 
    Dim x(10) As Integer
    Dim i As Integer
 
        ' Array füllen
        For i = 0 To UBound(x)
          x(i) = 1 * i
        Next i
 
        For i = 0 To UBound(x)
          ' Das & hängt den Inhalt des Arrays an
          Label1.Caption = Label1.Caption & x(i)
        Next
 
End Sub

Mit freundlichen Gr??en,
Andy G.