f
   Loop While (lErr = 0)
   
   On Error GoTo 0
   Me.PopupMenu mnuE0MAIN, , _
      lLeft, _
      lTop
      
End Sub
Private Sub cmdChangeIcon_Click()
Dim i As Long
   i = Rnd * ilsIcons.ImageCount
   cIM.IconIndex(mnuEdit(2).Caption) = i
   picIcon.Picture = ilsIcons.ItemPicture(i + 1)
End Sub

Private Sub cmdVisible_Click()
Static i As Long
'
   ' Make one of the invisible menu items
   ' visible again:
   If (i = 0) Then
      i = 5
   Else
      i = i + 1
   End If

   If (i = 9) Then
      cmdVisi