>Sub changetextcolor(textboxname() As TextBox) > textboxname(1).BackColor = RGB(255, 0, 0) > textboxname(2).BackColor = RGB(0, 255, 0) >End Sub >Private Sub Command1_Click() > Dim txtbxs(2) As TextBox > txtbxs(0) = Me.Text1 > txtbxs(1) = Me.Text2 > Call changetextcolor(txtbxs()) >End Sub >You need to assign the object reference to your txtbxs array using the "Set" command. Also a minor bug in that your array elements don't match.
Sub changetextcolor(textboxname() As TextBox) textboxname(0).BackColor = RGB(255, 0, 0) textboxname(1).BackColor = RGB(0, 255, 0) End Sub Private Sub Command1_Click() Dim txtbxs(2) As TextBox Set txtbxs(0) = Me.Text1 Set txtbxs(1) = Me.Text2 Call changetextcolor(txtbxs()) End Sub