DIM SHARED Version AS STRING Version$ = "1.000"