 Me.PopupMenu mnuTestTOP, , x + barMain.tOp, y + barMain.left
End Sub

Private Sub barMain_Resize()
   Form_Resize
End Sub

Private Sub Form_Load()
   
   Set m_cIml = New cVBALImageList
   With m_cIml
      .IconSizeX = 32
      .IconSizeY = 32
      .ColourDepth = ILC_COLOR32
      .Create
   End With
   loadIcons m_cIml
   Set m_cImlSMall = New cVBALImageList
   With m_cImlSMall
      .IconSizeX = 16
      .IconSizeY = 16
      .ColourDepth = ILC_COLOR32
      .Create
   End With
   loadIcons m_cImlSMall