i am trying to send a array value to form 1 to form 2

this is what i did

FORM1:


Public X

Private Sub Form_Load()
x=array(1,2,3)
end sub




FORM2:


Public X

Private Sub Form_Load()
form2.X=form1.X
end sub


Private Sub Command1_Click()
Me.Print x
End Sub



it gives me a subscript out of range error (run time error 9)

am i doing it wrong? or is there another way to do it??