Imports Infragistics.Win.UltraWinGrid ... Private Sub UltraGrid1_InitializeLayout(ByVal sender As Object, _ ByVal e As Infragistics.Win.UltraWinGrid.InitializeLayoutEventArgs) _ Handles UltraGrid1.InitializeLayout Dim oCol As UltraGridColumn For Each oCol In e.Layout.Bands(0).Columns oCol.Width = 100 Next End Sub