Happy 37th Birthday, mr. Herd!
Dim herd, booze
herd = CreateObject("Herdlabs.Herd.37");
booze = CreateObject("Supermarket.Booze");
if Not IsNothing(herd) then
herd.partyAllNightLong(":D")
while Not booze.IsEmpty do
herd.use( booze )
wend
end if

Hope you have a great party over there in Germany!
Aqua-Soft Forums