For i As Integer = 0 To Me.hHippoChart1.SeriesListDictionary(0).SeriesCollection(0).items.Count - 1 Dim columnwidth As Single = Me.hHippoChart1.SeriesListDictionary(0).SeriesCollection(0).items(i).Column.Width