//used to make nicer boxes in vb
//
//Argument one : The Icon         0  = none
//                                16 = X 
//                                32 = ? 
//                                48 = ! 
//                                64 = i 
//
//Argument two : The buttons      0 = OK   # standard alert
//                                1 = OK CANCEL
//                                2 = ABORT RETRY IGNORE
//                                3 = YES NO CANCEL
//                                4 = YES NO
//                                5 = RETRY CANCEL 
//
//Argument three :                0    = First
//In your popup, which            256  = Second
//button should be selected       512  = Thrid
//by default?
//
//Argument four :                 0    = Browser stalls
//The system command will         4096 = All apps stall
//stall either the browser 
//or the whole system until 
//the user responds 
//(either submits or cancels)
//
//
//A value is returned 
//depending on which button 
//was pressed. So you could say 
//
//if(retVal == 3){do this} 
//else {do this}
//
//Here are the return values      OK      = 1 
//                                Cancel 	= 2 
//                                Abort 	= 3 
//                                Retry 	= 4 
//                                Ignore 	= 5 
//                                Yes     = 6 
//                                No      = 7 


Function makeMsgBox(mess,tit,icon,buts,defs,mode)
   butVal = icon + buts + defs + mode
   makeMsgBox = MsgBox(mess,butVal,tit)
End Function

Function makeInputBox(question,title,default_answer)
   makeInputBox = InputBox(question,title,default_answer)
End Function