For Each DesktopMime (gb.desktop)
Dim
hDesktopMime
As
DesktopMime
For Each
hDesktopMime
In
DesktopMime
...
Next