works with vb 3.6x not with vb 3.8.2