Dim txtColl As New Collection

txtColl.Add(txtField1)
txtColl.Add(txtField2)

For i = 1 To txtColl.Count
  txtColl.Item(i).Readonly = True
  txtColl.Item(i).Cursor = Cursors.Arrow
  txtColl.Item(i).ForeColor = ForeColor.Blue
Next