<%@Page language="vb" %>
Sub Page_Load()
Dim AnimalArray(4) As String
Dim strAnimal As String
AnimalArray(0) = "Dog"
AnimalArray(1) = "Cat"
AnimalArray(2) = "Elephant"
AnimalArray(3) = "Lion"
AnimalArray(4) = "Cat"
For Each strAnimal In AnimalArray
MyDropDownList.Items.Add(strAnimal)
Next
End Sub