codice:
   Private Sub txtAnagIndirizzo_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtAnagIndirizzo.LostFocus
      Dim x() As String
      Dim i As Integer = 0
      Dim xx As String
      Anag.Località = txtAnagIndirizzo.Text.Trim
      x = Anag.GetCap
      cmbCap.Items.Clear()
      For i = LBound(x) + 1 To UBound(x)
          xx = x(i)
         cmbCap.Items.Add(xx)
      Next i
   End Sub
perchè devo per forza passare l'elemento di un'array ad una stringa per inserirlo in una combobox
e non posso semplicemente
fare
cmbCap.Items.Add(x(i))
come avrei fatto in vb6 a me sembra un inutile spreco di risorse