Public Sub Initialize
PageTS.Initialize("PageTS")
PageTS.RootPanel.LoadLayout("TipoStru")
.......
.......
End Sub
Private Sub PageTS_Resize
If Main.RotLingua="IT" Then
BTRistoranti.Width=BTRistoranti.Height*4.5
Else
BTRistoranti.Width=BTRistoranti.Height*6
End If
End Sub