Function PackFlagsToByte%(f0,f1=0,f2=0,f3=0,f4=0,f5=0,f6=0,f7=0). rb=f0 Shl 7+f1 Shl 6+f2 Shl 5+f3 Shl 4+f4 Shl 3+f5 Shl 2+f6 Shl 1+f7 Return rb End Function