Dim Panels(667) As Panel
Sub CreatePanels
For i = 0 to 666
Dim cw as Panel
cw.Initialize("Panels")
cw.Tag = ActivityName 'See Note 1
Panels(i) = cw
Desiredview.Panel.AddView(cw,Left,Top,Width,Height)
Next
End sub
Sub Panels_Click
Dim P As Panel = Sender
StartActivity(P.Tag)
End Sub