location." &amp; vbCrLf &amp; "Panel caption?", , "New Panel")
   If (sI &lt;&gt; "") Then
      iPos = Rnd * m_cSBar.PanelCount + 1
      If (m_cSBar.PanelCount = 0) Or (iPos &gt;= m_cSBar.PanelCount) Then
         ' Add to end
         m_cSBar.AddPanel , sI, Rnd * ilsIcons.ListImages.Count
      Else
         ' Insert panel
         m_cSBar.AddPanel , sI, Rnd * ilsIcons.ListImages.Count, , , , , , iPos
      End If
   End If
End Sub

Private Sub cmdDel_Click()
   If (m_cSBar.PanelCount &gt; 0) Then
      