Microsoft Embedded - Combo Box

Hola...

Mi problema es que aplicaciones que tenia escritas en VB6 al intentar aplicarlas a eVB no me funcionan por ejemplo esto, de un combobox

With Combo1 'Tipo de antena TX
.Clear
.AddItem "Tipo de antena TX"
.AddItem "Yagui 400 Mhz."
.AddItem "Yagui 900 Mhz."
.AddItem "Yagui 1600 Mhz."
.AddItem "Helecoidal 900 Mhz."
.AddItem "Helecoidal 1600 Mhz."
.AddItem "Parab. 1,2 m. 1600 Mhz."
.AddItem "Parab. 1,8 m. 1600 Mhz."
.AddItem "Parab. 1,8 m. 2500 Mhz."
.AddItem "Parab. 2,4 m. 2500 Mhz."
.AddItem "Parab. 3,0 m. 2500 Mhz."
.AddItem "Parab. 1,2 m. 7 Ghz."
.AddItem "Parab. 0,6 m. 10 Ghz."
.AddItem "Parab. 1,2 m. 10 Ghz."
.AddItem "Parab. 1,8 m. 10 Ghz."
.AddItem "Parab. 2,4 m. 10 Ghz."
.AddItem "Parab. 60 cm. 15 Ghz."
.AddItem "Parab. 1,8 m. 15 Ghz."
.AddItem "Parab. 60 cm. 18 Ghz."
.AddItem "Parab. 1,2 m. 18 Ghz."
.AddItem "Parab. 30 cm. 23 Ghz."
.AddItem "Parab. 60 cm. 23 Ghz."
.AddItem "Parab. 30 cm. 38 Ghz."
.AddItem "Parab. 60 cm. 38 Ghz."
.ListIndex = 0
End With

Esto tal cual funciona en VB6 pero no en eVB podrias decirme porque o que hago mal.

Saludos