How lock folder using vb6