For Each _DesktopFile_Actions (gb.desktop)

Dim hDesktopFile As DesktopFile
Dim hDesktopAction As DesktopAction
For Each hDesktopAction In hDesktopFile.Actions
  ...
Next