Disable all without a timer

For i = 0 To Activity.NumberOfViews - 1
      Dim v As View
      v = Activity.GetView(i)
      v.Enabled = False
   End If

Sub Globals
   Dim names(0) As String
End Sub

Sub App_Start
   Form1.Show
   DisableAll
End Sub

Sub DisableAll
   names() = GetControls("Form1")
   For i = 0 To ArrayLen(names()) - 1
      Control(names(i)).Enabled = False
   Next
End Sub