For Each DesktopMime (gb.desktop)

Dim hDesktopMime As DesktopMime
For Each hDesktopMime In DesktopMime
  ...
Next