i try this in vb6 . doesnt work