tion." &amp; vbCrLf &amp; "Panel caption?", , "New Panel")
      If (sI &lt;&gt; "") Then
         iPos = Rnd * sbrMain.PanelCount + 1
         If (sbrMain.PanelCount = 0) Or (iPos &gt;= sbrMain.PanelCount) Then
            ' Add to end
            sbrMain.AddPanel , sI, , Rnd * ilsIcons.ImageCount
         Else
            ' Insert panel
            sbrMain.AddPanel , sI, , Rnd * ilsIcons.ImageCount, , , , , , iPos
         End If
      End If
   Case 1
      ' Delete
      sbrMain.RemovePanel sbrMain.Pane