Toolbar/ImageList

[Edgemeal]

Thanks for the code. In your Load Images from a set directory example,
how would you add all the icons in the directory wihtout having to specify each one individually?

You can use the Dir command to get file names, something like,....

'Load the images to the respective ImageList
Dim strDir As String
Dim strFile As String
Dim intCount As Integer
' set path
strDir = App.Path & "\gfx\One\"
' get all "*.ico" filenames in strDir folder
strFile = Dir(strDir & "*.ico", vbNormal)
Do Until strFile = vbNullString
    intCount = intCount + 1
    ' add to img list
    Call ImageList1.ListImages.Add(intCount, "", LoadPicture(strDir & strFile))
    strFile = Dir ' get next filename
Loop

' [continue with the rest of code]
'Set the toolbar so that it reads.......