'GLOBAL DECLARATIONS Global X As Single Global Y As Single ' 'DDE Constants Global Const COLD = 2 '