Sub StartT()
Dim AW, W
AW = Window.Screen.availWidth: W = 760
If AW <= 800 Then
Window.TObj1.Style.Visibility = "hidden"
Window.TObj2.Style.Visibility = "hidden"
Else
Window.TObj1.Style.Left = 10: Window.TObj1.Style.Top = 90
Window.TObj1.Style.Visibility = "visible"
Window.TObj2.Style.Left = (AW - W) / 2 + W - 5: : Window.TObj2.Style.Top = 90
Window.TObj2.Style.Visibility = "visible"
End If
End Sub