MinWIdth As Long

   sbrMain.ImageList = ilsIcons
   For i = 1 To 5
      iImg = -1
      iMinWIdth = 64
      If (i = 2) Then
         eStyle = estbrIns
         sText = "Test item " &amp; i
      ElseIf (i = 3) Then
         eStyle = estbrStandard
         sText = ""
         iMinWIdth = 12
      ElseIf (i = 4) Then
         eStyle = estbrOwnerDraw
         sText = "Owner Draw"
         iMinWIdth = 72
      Else
         eStyle = estbrStandard
         sText = "Test item " &amp; i
      End If
      sbrMa