e VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private m_cIml As cVBALImageList
Private m_cImlSMall As cVBALImageList

Private Sub loadIcons(cIml As cVBALImageList)
Dim sFile As String
   sFile = App.Path &amp; "\Res\"
   With cIml
      .AddFromFile sFile &amp; "276.ico", IMAGE_ICON, "CALENDAR"
      .AddFromFile sFile &amp; "21_19.ico", IMAGE_ICON, "TIMECARDS"
      .AddFromFile sFile &amp; "167_6.ico", IMAGE_ICON, "NOTES"
      .AddFromFile sFile &amp; "20_2.ico", IMAGE_ICON, "PO