anchor.diff:              arrayNDManikinView.Columns.Add (new DataGridViewTextBoxColumn(Name="Shape", 
                                                                             DataPropertyName="Shape")) |> ignore
               manikinSplitter.Panel2.Controls.Add arrayNDManikinView
  +
               let updateArrayNDManikinView visMemManikin = 
                   let visArrayNDManikins =
                       arrayNDManikins
  
positive.code:                                                       AutoSizeColumnsMode=DataGridViewAutoSizeColumnsMode.AllCells,
                                                        AllowUserToResizeRows=false,
                                                        SelectionMode=DataGridViewSelectionMode.FullRowSelect,
                                                        MultiSelect=false, RowHeadersVisible=false)
              arrayNDManikinView.Columns.Add (new DataGridViewTextBoxColumn(Name="ExecUnit", 
                                                                            DataPropertyName="EuId")) |> ignore
              arrayNDManikinView.Columns.Add (new DataGridViewTextBoxColumn(Name="Relation", 
  
negative.code:                 for visArrayNDManikin in visArrayNDManikins do
                      arrayNDManikinBinding.Add visArrayNDManikin |> ignore
                  arrayNDManikinView.AutoResizeColumns()
                  arrayNDManikinView.SelectAll()
  
              memManikinView.SelectionChanged.Add (fun _ -> 
                  match memManikinView.SelectedRows.Count with
                  | 0 -> arrayNDManikinBinding.Clear()
                  | 1 -> updateArrayNDManikinView (memManikinView.SelectedRows.[0].DataBoundItem :?> VisMemManikin)
                  | _ -> ())
  
              arrayNDManikinView.SelectionChanged.Add (fun _ ->
                  let edges = 
                      arrayNDManikinView.SelectedRows
                      |> Seq.cast<DataGridViewRow>
                      |> Seq.map (fun row -> row.DataBoundItem :?> VisArrayNDManikin)
                      |> Seq.choose (function | {UExpr=uExpr; Relation=Src src} -> Some (uExpr, src)
                                              | _ -> None)
                      |> Seq.choose (fun (uexpr, src) -> srcEdges.TryFind (uexpr, src))
                      |> List.ofSeq
                  blinkEdges <- edges)
  
              // blink timer
              let blinkTimer = new Timer(Interval=500)
              blinkTimer.Tick.Add (fun _ -> doBlinkUpdate())
              blinkTimer.Start()
  
              // show
              form.ResumeLayout()
              form.ShowDialog () |> ignore
  