101B-AFC0-4210102A8DA7} 
            Picture         =   "frmTest.frx":2449
            Key             =   "NEW"
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "frmTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private m_cSBar As cNoStatusBar


Private Sub cmdAdd_Click()
Dim sI As String
Dim iPos As Long
   sI = InputBox$("This inserts a panel with a random icon at a random
    