Create blockListCopy.vb