vb work in progress.