Ihandle *IupVbox (Ihandle* first, ...)
{
  Ihandle *exp;
  Ihandle *ret;
  va_list arg;
  Ihandle *box = iupTreeCreateNode (NULL);

  va_start (arg, first);

  for (exp=first; exp; exp=va_arg(arg,Ihandle*))
    box = iupTreeAppendNode (box, exp);

  va_end (arg);
  ret = iupMkVbox (box);
  IupSetAttribute(ret, IUP_ALIGNMENT, IUP_ALEFT);
  return ret;
}