ArrayList - Invserire valori e passarli a ComboBox

Dim myShapes As New ArrayList
With myShapes
.Add("Circle")
.Add("Octagon")
.Add("Rectangle")
.Add("Squre")
.Add("Trapezoid")
.Add("Triange")
End With

ComboBox1.DataSource = myShapes
ComboBox1.SelectedIndex = 0