Is there a better way to load values into a control array?

Currently I have

Button(0).Caption = "Apple "
Button(1).Caption = "Orange"
Button(2).Caption = "Pear"
Button(3).Caption = "Banana"
Button(4).Caption = "Tomato"

Is there a more efficient way of doing this?

Not necessarily more efficient, but an alternate…

[code]Dim myCaps() As String = array(“Apple”, “Orange”, “Pear”, “Banana”, “Tomato”)

for i As integer = 0 to myCaps.Ubound
Button(i).Caption = myCaps(i)
next[/code]