Public Sub ScaleAllDS(pnl As Panel, FirstTime As Boolean)
Dim I As Int
' test if the activity object is a Panel
If IsPanel(pnl) AND FirstTime = True Then
' if yes scale it
ScaleViewDS(pnl)
Else
For I = 0 To pnl.NumberOfViews - 1
Dim v As View
v = pnl.GetView(I)
ScaleViewDS(v)
Next
End If
End Sub