Function  alertvb(msgs,btn)
		alertvb = msgbox(msgs,btn,"APEX Thailand Management System")
	End Function