'--- disegno una righina a destra ed in basso
' Dim C As Canvas
' C.Initialize (Activity)
Dim P2 As Path
'--- punto iniziale
Y=ivs(i-1).top+ivs(i-1).Height+1
X=ivs(i-1).Left+4
P2.Initialize (X,Y)
'--- linea in basso
X=ivs(i-1).Left+ivs(i-1).Width+1
P2.LineTo (X,Y)
'--- linea verticale a destra
Y=ivs(i-1).top+4
P2.LineTo (X,Y)
C.DrawPath(P2,Colors.RGB(20,20,20) ,False,3dip)