Private Sub Command1_Click() Label1(0) = 1 Label1(1) = 2 Label1(2) = 3 Label1(3) = 4 Label1(4) = 5 Label1(5) = 6 End Sub