Private Sub UltraGrid1_InitializeLayout(
ByVal sender As System.Object,ByVal e As InitializeLayoutEventArgs)Handles UltraGrid1.InitializeLayout
Me.ultraProgressBar1.Minimum = 0
Me.ultraProgressBar1.Maximum = CalculateMaximum()
e.Layout.Bands(0).Columns("コラム名").EditorComponent = Me.ultraProgressBar1
End Sub
上記のような感じでいかがでしょうか?