[macro visual studio 2003]inserimento stringhe

[giuseppe500]

ho provato questo:
Dim proj As Project = DTE.Solution.Projects.Item(1)
DTE.Windows.Item(Constants.vsWindowKindProperties) .Activate()
Dim publishProperties As Object = proj.Properties.Item(1).Value

For k1 As Int16 = 1 To publishProperties.Item(1).value.Count

For j As Int16 = 1 To publishProperties.Item(1).value.Item(k1).value.cou nt

If publishProperties.Item("Object").value.Item(j).val ue.GetType().ToString <> "System.String" Then
For k As Int16 = 1 To publishProperties.Item("Object").value.Item(j).val ue.Count
MessageBox.Show(publishProperties.Item("Object").v alue.Item(j).value.item(k).name.ToString)
Next
Else
MessageBox.Show(publishProperties.Item("Object").v alue.Item(j).name.ToString())
End If
' MessageBox.Show(publishProperties.Item(j).Name())

Next


ma tra tutti i messaggi non esce la PropertiesWindow!con le relative proprieta.