lCount
   Case 3
      mfrmTest.Show
   Case 5
      Unload Me
   End Select
End Sub

Private Sub mnuView_Click(Index As Integer)
Dim bs As Boolean
   bs = Not (mnuView(0).Checked)
   mnuView(0).Checked = bs
   sbrMain.Visible = bs
   Form_Resize
End Sub

Private Sub sbrMain_Click(ByVal iPanel As Long, ByVal X As Single, ByVal Y As
 Single, ByVal eButton As MouseButtonConstants)
   lstTest.AddItem "Click " &amp; iPanel
End Sub

Private Sub sbrMain_DblClick(ByVal iPanel As Long, ByVal X As Single, ByVal Y
 A