Sub Globals
Type blocks(pnl As Panel, left As Int, right As Int, top As Int,bottom As Int,action As String)
Dim bl(100) As blocks 'max panels
End Sub
'....
Sub addpanelstoarray
Dim i As Int = 0
blsize = 0
For Each p As Panel In pnl1.GetAllViewsRecursive
bl(i).pnl = p
bl(i).left = p.Left
bl(i).right = p.Left + p.Width
bl(i).top = p.Top
bl(i).bottom = p.Top + p.Height
bl(i).action = p.Tag
i = i+1
Next
blsize = i
End Sub
sub btn1_click
bl(0).pnl.SetVisibleAnimated(400,False)
end sub